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A  knowledge-based  system  was  developed  to 
automatically  calibrate  a  crop  model  for  irrigation 
scheduling  using  system  interpreted  sensor  readings.   The 
system  also  evaluates  a  sensor's  suitability  as  a  feedback 
element  for  model  calibration.   Parameters  in  the  root 
development  and  water  balance  components  of  a  crop  growth 
model  are  adjusted  to  provide  a  more  accurate  representation 
of  soil  water  status  and  distribution. 

A  knowledge  system  containing  a  sensor  diagnostic  was 
developed  to  interpret  sensor  readings  used  as  feedback  to 
the  model .   The  system  was  coded  with  expert  knowledge 
regarding  expected  trends  under  wetting  and  drying.   Sensor 
readings  judged  to  be  valid  adjusted  appropriate  parameters 
in  the  crop  model.   The  system  informed  the  user  of  sensor 


status  and  indicated  corrective  actions  if  readings 
indicated  improper  placement,  a  faulty  sensor,  or  out  of 
range  conditions. 

A  field  experiment  was  conducted  with  peanuts  grown  in 
two  weighing  lysimeters.   Soil  water  sensors  were  also 
installed  in  the  lysimeters.   Crop  water  use  measured  at  the 
lysimeters  was  compared  to  sensor-based  representations  to 
develop  a  knowledge  base  for  parameter  adjustment  routines. 
A  peanut  crop  growth  model  (PNUTGRO)  was  chosen  for 
modification  because  it  contains  a  user-oriented  water 
balance  requiring  minimum  inputs  and  delineates  water  use 
from  specific  soil  zones. 

The  field  data  was  also  used  to  verify  proper  execution 
of  the  parameter  adjustment  routines.   Results  indicated 
that  model-based  representations  of  soil  water  status  and 
distribution  converged  on  sensor-based  representations  in 
four  days  split  between  two  drying  cycles. 


CHAPTER  I 
INTRODUCTION 

Problem  Statement 

Farming  systems  require  the  efficient  scheduling  of 

many  operations.   Farm  managers  strive  to  obtain  maximum 

output  or  economic  return  with  a  minimum  input  of  labor  and 

energy.   Irrigation  is  a  major  consumer  of  energy  on  the 

farm  and  efficient  water  use  is  essential  for  energy  and 

resource  conservation  and  for  maximizing  crop  yield  or 

economic  return.   Irrigation  scheduling  is  a  particular 

challenge  in  Florida  because  of  the  highly  variable  nature 

of  rainfall  and  soils  with  low  water  holding  capacity. 

These  conditions  provide  a  stringent  test  of  any  new 

management  strategy  and  have  prompted  much  research  into  the 

complex  soil-water  interactions.   Simulations  of  water 

movement  under  a  trickle  source  (Armstrong  and  Wilson,  1983; 

Zazueta  et  al.,  1985)  and  under  center  pivot  irrigation 

systems  (Clark  and  Smajstrla,  1983)  have  been  developed  to 

gain  a  better  understanding  of  soil  water  distribution  under 

different  management  practices.   Numerical  simulations  of 

water  extraction  patterns  as  a  function  of  climate  changes 

and  irrigation  management  (Stone,  1987)  have  also  been 

implemented. 
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Many  simulations  of  soil  water  movement  and  water  use 
by  the  crop  have  been  simplified  and  incorporated  into 
simulation  models  that  model  growth  of  the  entire  plant 
(Wilkerson  et  al.,  1983;  Jones  et  al.,  1986;  Boote  et  al . , 
1989) .   Physiological  processes  are  modeled  along  with  the 
water  balance  in  specific  soil  zones.   These  models  have 
been  used  in  the  research  environment  to  evaluate 
irrigation,  fertilization,  pest  control,  weed  control,  and 
disease  control  strategies  on  crop  yield. 

Boggess  et  al.  (1983)  analyzed  many  different 
scheduling  criteria  used  by  irrigation  managers  to  present  a 
detailed  economic  analysis.   The  soybean  model  developed  by 
Wilkerson  et  al.  (1983)  was  used  to  evaluate  the  economic 
impact  of  various  management  decisions.   The  authors 
indicated  that  irrigation  managers  may  have  different 
objectives  and  that  maximum  crop  yield  does  not  usually 
coincide  with  maximum  profit.   Other  management  objectives 
may  also  influence  the  final  yield  and  return.   For  example, 
an  objective  might  be  to  minimize  nitrate  leaching.   This 
would  influence  the  level  of  irrigation  and,  thus,  the  yield 
and  return. 

Accurate  determination  of  proper  water  application 
amounts  has  been  attempted  using  model-  and  sensor-based 
approaches.   All  irrigation  management  objectives  involve 
replenishment  of  a  finite  regulation  zone  at  the  proper 
time.   Many  model-based  approaches  use  simplified  forms  of 
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the  original  Penman  (1948)  evapotranspiration  (hereafter 
called  ET)  model  with  accompanying  soil  water  and  root 
distribution  functions. 

A  crop  model  for  peanuts  (Boote  et  al . ,  1989)  uses  a 
semi-empirical  ET  model  that  requires  a  minimum  of  weather 
inputs.   The  model  can  be  run  using  easily  obtained  weather 
data  and  without  potentially  complicated  and  costly 
instrumentation.   Root  distribution  functions  from  empirical 
studies  are  also  included.   Thus,  soil  water  contents  and 
root  length  densities  in  specific  soil  zones  can  be  modeled. 
Accuracy  of  the  water  balance  is  limited  by  the  fact  that 
empiricisms  derived  may  not  be  universally  applicable  and 
that  differences  between  published  and  actual  soil 
characteristics  can  influence  modeled  results  significantly. 
Calibration  of  the  model  for  the  user's  particular  field 
soil  could  improve  estimates,  but  this  requires  detailed 
soil  analysis  and  still  does  not  account  for  differences  in 
root  distributions. 

Soil  water  sensors  have  been  used  to  help  the  farm 
manager  schedule  irrigations.   Soil  water  sensors  read  soil 
water  potential  as  a  function  of  their  resistance  (i.e. 
gypsum  blocks)  or  directly  as  a  suction  value  (tensio- 
meters) .   Properly  placed  sensors  can  indicate  water  use  in 
specific  soil  zones  and  can  be  a  great  help  in  determining 
precisely  when  to  irrigate  and  how  much  water  to  apply. 
Reliability  problems  and  requirements  to  service 
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them  have  prevented  many  farm  managers  from  using  soil  water 
sensors,  however. 

In  a  farm  manager's  operation,  the  perception  of 
unreliability  in  a  method  (whether  justified  or  not)  may 
cause  him  to  abandon  the  idea  in  favor  of  making  an  educated 
guess  of  when  and  how  much  water  to  apply.   This  can  be  a 
wasteful  practice.   Although  much  work  has  been  done  to 
promulgate  use  of  soil  water  sensors,  many  farm  managers 
perceive  that  sensors  do  not  work.   However,  even  with  more 
reliable  sensors  being  promoted  (Larson,  1987) ,  proper 
interpretation  of  the  readings  is  essential  for  proper 
irrigation  management.   In  its  simplest  form,  this  usually 
involves  use  of  a  suction-time  chart  as  described  by  Stolzy 
et  al.  (1959)  and  Richards  and  Marsh  (1961). 

Interpretation  becomes  more  complicated  if  water  use 
and  the  effects  of  irrigation  are  to  be  delineated  in 
specific  soil  zones.   This  level  of  interpretation  would  be 
required,  for  example,  if  sensors  at  the  bottom  of  the  root 
zone  did  not  show  a  decrease  in  suction  after  irrigation. 
In  that  case,  the  amount  of  irrigation  would  be  increased  on 
the  next  cycle. 

A  knowledge-based  system  could  provide  interpretation 
of  sensor  readings  throughout  the  season.   The  knowledge 
system  concept  is  ideally  suited  to  sensor-based  scheduling 
because  all  decisions  made  regarding  use  and  interpretation 
of  sensor  readings  involves  experience.   For  many  years, 
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extension  publications  have  sought  to  provide  the  farm 
manager  with  information  on  the  use  of  sensor  readings  to 
schedule  irrigations  (Fischbach  and  Schleusener,  1961; 
Smajstrla  et  al.,  1982).  To  remove  the  need  for  a  manager  to 
interpret  sensor  readings,  he  could  simply  enter  daily 
sensor  readings  to  a  knowledge  base  that  contains  the 
experience  of  extension  personnel,  other  farm  managers,  and 
researchers.   A  complete  knowledge  base  would  include  a 
person's  experience  with  many  types  of  sensors  and  many 
types  of  soils  and  crops.   The  knowledge  system  could 
interpret  sensor  readings  and  make  irrigation 
recommendations.   The  system  could  also  flag  certain  sensors 
that  are  giving  questionable  readings  and  recommend  action 
be  taken  to  correct  the  problem.   Interactions  with  the  user 
should  be  very  clear  and  informative  if  the  user  is  to 
accept  it  as  a  scheduling  approach. 

Model-based  approaches  to  irrigation  scheduling  also 
require  a  user-friendly  approach  so  that  the  farm  manager 
can  keep  track  of  all  relevant  field  variables.   With  this 
in  mind,  Heerman  et  al.  (1985)  developed  a  large  scale 
irrigation  management  system  to  schedule  several  center 
pivots  in  the  Great  Plains.   This  system  used  an  empirically 
based  water  balance  to  recommend  irrigation  timing  and 
amount  of  water  to  apply.   Although  water  use  in  specific 
soil  zones  was  not  delineated  on  a  per-system  basis, 
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management  of  several  large  pivots  could  be  achieved  and 
effectively  scheduled. 

In  summary,  neither  model-  nor  sensor-based  approaches 
to  irrigation  scheduling  (by  themselves)  have  achieved 
widespread  acceptance  because  of  the  time  and  labor  involved 
to  properly  utilize  them.   Model-based  approaches  suffer  an 
additional  problem  of  reguiring  extensive  field 
calibrations. 

Research  Objective 
For  this  study,  an  integrated  system  is  proposed  which 
combines  the  sensor-  and  model-based  approaches  used  in 
irrigation  scheduling.   Models  of  evapotranspiration,  soil 
water  and  root  distribution,  and  infiltration  combined  with 
a  knowledge-based  method  of  providing  water  status  feedback 
is  proposed.   Properly  interpreted  sensor  readings  will 
adjust  model  input  parameters  and  process  eguations  that 
influence  ET,  soil  characteristics,  and  root  development. 
Thus,  sensors  will  automatically  calibrate  model  components 
as  the  season  progresses.   The  strategy  will  reduce  a  labor 
intensive  aspect  of  sensor-based  scheduling  by  providing 
interpretation  of  sensor  readings  at  all  stages  of  the 
crop's  development. 

Expert  knowledge  regarding  interpretation  of  sensor 
readings  used  as  feedback  to  the  model  will  be  a  key  element 
of  the  system.   Sensors  will  be  read  and  the  system  will 
judge  the  suitability  of  and  interpret  the  readings.   This 
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will  remove  the  need  for  interpretation  by  experienced  field 
personnel  since  procedures  to  make  a  decision  will  already 
be  coded  into  a  knowledge  base.   The  system  will  also 
determine  where  in  the  soil  zone  water  use  is  taking  place. 
Thus,  irrigation  can  be  adjusted  to  fully  or  partially 
refill  only  the  active  root  zone. 

The  overall  objective  of  this  study  is  to  develop  an 
irrigation  scheduler  that  uses  sensor  information  in  a 
feedback  mode  to  perform  parameter  or  equation  adjustments 
to  a  composite  model  of  crop  water  use,  soil  water  re- 
distribution and  root  distribution. 

Synopsis  of  Research 
This  study  is  organized  into  seven  chapters.   A 
detailed  review  of  previous  work  and  derivation  of  the  basic 
equations  used  in  modeling  crop  water  use  are  presented 
first.   A  detailed  presentation  of  the  problem,  experimental 
procedures,  results,  conclusions,  and  suggestions  for  future 
study  follow. 

Chapter  II  presents  basic  soil-water  relationships  and 
presents  a  detailed  background  of  sensor-based  approaches 
used  to  delineate  water  use  in  specific  soil  zones.   The 
Penman  combination  formula,  which  models  evaporation  and 
water  use  in  the  soil-plant  system,  is  derived  from  basic 
principles  of  mass  and  energy  transfer. 

In  Chapter  III,  past  and  present  work  with  crop  growth 
models  is  presented.   The  review  of  crop  growth  models 
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extends  the  concepts  presented  in  Chapter  II  by  presenting 
root  growth  and  soil  water  distribution  functions.   A 
graphical  example  of  modeled  water  use  in  specific  soil 
zones  using  the  concepts  presented  by  these  models  is 
presented.   The  role  of  soil  water  sensors  in  delineating 
water  use  in  specific  soil  zones  is  presented  and  compared 
to  the  model-based  approaches.   Previous  work  detailing 
knowledge-based  simulations  for  on-farm  crop  management  are 
presented.   Justification  for  a  knowledge-based  approach  to 
couple  model-  and  sensor-based  methods  for  irrigation 
scheduling  is  also  presented. 

Chapter  IV  details  experimental  procedures  for  growing 
peanuts  in  two  weighing  lysimeters.   These  lysimeters 
present  a  detailed  picture  of  crop  water  use  for  comparison 
to  sensor-based  results.   Data  obtained  are  used  to  develop 
a  knowledge  base  for  model  parameter  adjustments  and  to 
verify  proper  operation  of  the  resulting  knowledge  system. 
The  data  acquisition  system  is  described  and  a  step-wise 
progression  of  the  data  acquisition  program  is  presented. 
Preliminary  analyses  of  the  field  data  are  presented  and 
possible  reasons  for  differences  between  actual  and  modeled 
water  use  are  presented. 

In  Chapter  V,  results  of  a  laboratory  test  to  determine 
the  response  time  of  a  soil  water  sensor  to  wetting  and 
drying  are  presented.   This  test  confirmed  that  the  soil 
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water  sensor  chosen  for  the  study  responded  fast  enough  to 
wetting  and  drying  to  be  used  on  a  daily  basis. 

Chapter  VI  details  construction  of  the  knowledge-based 
system  for  irrigation  management  from  lysimeter  field 
experiments  detailed  in  Chapter  IV.   Flow  between  the 
knowledge  bases  and  calculation  programs  is  detailed  using  a 
block  diagram.   An  expert  system  for  sensor  evaluation,  data 
input  and  output  routines  (including  user  interfaces), 
irrigation  scheduling  routines,  and  parameter  adjustment 
routines  are  detailed.   Verifications  of  program  operation 
are  illustrated  using  field  data  and  were  run  in  an 
interactive  mode  as  a  user  would.   Tests  showed  that 
parameter  adjustments  dictated  by  sensor  feedback  caused 
modeled  soil  water  status  to  converge  on  sensor-based 
representations  of  soil  water  status. 

Chapter  VII  presents  a  summary  of  procedures  and 
results  of  the  lysimeter  field  study,  construction  of  the 
expert  system  for  sensor  evaluation,  parameter  adjustment 
routines,  and  system  evaluations  using  the  field  data. 
Suggestions  for  future  improvements  to  each  of  these 
components  are  discussed.   Recommendations  for  future 
development  include  the  system's  use  in  yield  studies  and 
the  economic  impact  of  irrigation  decisions. 

In  addition  to  the  seven  chapters,  there  are  nine 
appendices.   Appendix  A  is  a  program  listing  in  BASIC  of 
load  cell  calibration  routines  for  the  lysimeters.   Appendix 
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B  lists  BASIC  computer  programs  to  further  sort  load  cell 

data  for  easy  import  to  a  spreadsheet  to  derive  calibration 

curves.   Appendix  C  lists  BASIC  computer  programs  to  sort 

load  cell  readings  for  spreadsheet  analysis  of  the 

experimental  data.   These  data  were  taken  by  the  program 

listed  in  Figure  4-7  of  Chapter  IV.   Appendix  D  lists  all  of 

the  files  used  in  the  knowledge-based  system  and  indicates 

where  they  are  located.   Appendix  E  lists  a  program  written 

in  the  rule  development  language  to  provide  the  user  with  an 

initial  screen  and  call  data  input  routines.   Appendix  F 

lists  a  Pascal  program  that  allows  the  user  to  input  soil 

water  sensor  and  weather  data.   The  input  weather  file  used 

in  the  crop  model  is  modified  with  this  weather  data. 

Appendix  G  lists  spreadsheet  macros  used  to  move  data 

between  components  of  the  knowledge  system.   Appendix  H 

lists  a  knowledge  base  for  sensor  evaluation  written  in  the 

rule  development  language.   Calculation  and  parameter 

adjustment  routines  and  irrigation  scheduling  routines  are 

listed  in  Appendix  I.   Rules  based  on  trends  observed  in 

lysimeter  data  are  incorporated  in  some  of  the  procedures 

listed  in  Appendix  I  to  perform  the  crop  model  parameter 

adjustments  and  determine  irrigation  adjustments. 

In  summary,  specific  procedures  to  be  accomplished  in 

this  study  are: 

1.    to  develop  a  user-oriented  knowledge-based  system 
that  determines  the  validity  of  and  properly 
interprets  field  sensor  readings  used  as  feedback 
elements , 
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2.  to  perform  a  field  study  in  which  crop  ET  is  measured 
and  soil  water  sensors  are  read  for  construction  of 
model  adjustment  routines, 

3.  to  utilize  a  crop  growth  model  that  contains  a  user- 
oriented  water  balance  and  delineates  water  use  in 
specific  soil  zones  that  sensors  are  placed, 

4.  to  identify  parameters  and  processes  of  the  model  to 
adjust  based  on  data  collected  in  Objective  2  and 
develop  a  knowledge  base  to  adjust  the  model, 

5.  to  develop  irrigation  scheduling  routines  that  use 
model  outputs  of  soil  water  content  in  specific  soil 
zones  and  weather  forecasting,  and 

6.  to  verify  model  adjustments  with  field  data  collected 
in  Objective  2  to  assure  that  the  model  is  properly 
representing  soil  moisture  in  the  zone  of  water 
regulation. 


CHAPTER  II 
SOIL-WATER-PLANT  RELATIONSHIPS 

Introduction 
In  the  discussion  following,  basic  soil-water 
relationships  and  sensor-based  approaches  to  measuring  soil 
water  content  (9)  in  layers  of  the  rooting  zone  are 
delineated.   Evapotranspiration  and  root  development  models 
are  then  discussed  as  they  relate  to  soil  water  depletion  in 
layers  of  the  root  zone. 

Soil-Water  Relationships 
The  amount  of  water  contained  in  the  soil  and  the 
energy  state  of  that  water  are  important  factors  affecting 
the  growth  of  plants.   Numerous  physical  properties  of  the 
soil  depend  on  the  soil  water  content.   Changes  in  water 
content  affect  the  respiration  of  roots,  activity  of  micro- 
organisms, and  the  chemical  state  of  the  soil.   The  energy 
state  of  water  in  the  soil  is  characterized  by  soil  water 
potential.   Of  the  many  components  comprising  total  soil 
water  potential,  the  pressure  or  matric  potential  is  of  main 
interest  in  this  study  because  it  characterizes  the 
persistence  with  which  the  soil  water  is  held  by  the  soil 
matrix.   Matric  potential  is  a  measure  of  the  amount  of 
energy  the  plant  must  exert  to  absorb  that  water.   Soil 
water  content  and  matric  potential  are  functionally  related 
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to  each  other,  and  the  graphical  representation  of  this 

relationship  is  termed  the  soil-moisture  characteristic 

curve. 

Soil  Water  Content 

The  wettest  possible  condition  of  the  soil  is  that  of 

saturation,  where  all  of  the  soil  pores  are  filled  with 
water.   Hillel  (1971)  indicated,  however,  that  it  is  very 
difficult  to  obtain  complete  saturation  owing  to  the 
entrapment  of  air  in  soil  pores.   The  driest  condition  of 
the  soil  encountered  in  nature  is  air-dryness  or,  in  the 
laboratory,  an  arbitrary  state  known  as  "oven-dry"  where  the 
soil  is  dried  in  an  oven  at  105°C  for  24  hr  (Hillel,  1982). 
The  24-hr  period  has  been  judged  a  sufficient  amount  of  time 
after  which  measurable  changes  in  mass  water  content  no 
longer  occur. 

The  proportion  of  water  in  the  soil  can  be  expressed  as 
either  a  mass  or  volume  ratio.   The  mass  ratio  is  given  by 

w  =  Mw/Ms  (2-1) 

where 

w  =  the  mass  ratio  of  water  mass,  Mw, 
to  dry  soil  mass,  Ms. 

Soil  water  content  can  also  be  expressed  in  terms  of  a 
volume  ratio  and  is  given  by 

e  =  Vw/Vt  (2-2) 
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where 


e  =  the  volume  ratio  of  water  volume,  Vw,  to  total 
(bulk)  soil  volume,  Vt. 

The  bulk  soil  volume  Vt  is  the  sum  of  the  volumes  of  solids 
(Vs) ,  water  (Vw) ,  and  air  (Va) .   Equations  (2-1)  and  (2-2) 
can  be  related  to  each  other  by  means  of  the  bulk  density, 
pD  and  the  density  of  water,  pw. 

e  =  w  (pb/pw)  (2-3) 

The  above  relationship  is  straightforward  for  non-swelling 
soils  where  the  bulk  density  is  constant  regardless  of  water 
content,  but  it  can  be  troublesome  with  swelling  soils  since 
the  bulk  density  is  a  function  of  mass  wetness  (water  con- 
tent) .   A  value  for  soil  water  saturation  is  also  difficult 
to  define  with  swelling  soils  because  such  soils  may  con- 
tinue to  adsorb  water  and  swell  after  all  the  pores  have 
been  filled  with  water. 
Field  measurement  of  soil  water  content 

There  are  many  methods  used  to  measure  soil  water 
content  either  directly  or  indirectly.   A  standard  method  of 
directly  measuring  soil  water  content  involves  removing  a 
sample  of  soil  by  augering  and  determining  both  its  moist 
and  dry  masses.   This  method  is  called  the  gravimetric 
method  of  soil  sampling.   The  mass  of  wet  soil  is  determined 
by  weighing  the  soil  sample  at  the  time  of  sampling.   The 
dry  mass  is  determined  by  drying  the  sample  to  a  constant 
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mass  in  an  oven  set  at  105  °C  for  24  hr.  The  soil  water 
content  on  a  mass  basis  is  described  by 

w  =  (wet  mass)  -  (dry  mass)   .  (2-4) 

dry  mass 

An  alternative  method  of  drying  is  to  impregnate  the  soil 
sample  in  a  heat  resistant  container  with  alcohol.   The 
alcohol  is  then  burned  off,  vaporizing  the  water  (Hillel, 
1980)  .   This  method  is  much  faster  than  oven  drying  and 
allows  field  personnel  to  obtain  dry  weights  quickly. 
A  disadvantage  of  using  the  gravimetric  method  is  that  it  is 
destructive  and  may  disturb  an  experimental  plot  enough  to 
distort  results. 

Neutron  scattering.   The  need  for  indirect  methods  of 
obtaining  water  content  in  soil  is  apparent  when  time  and 
labor  involved  in  gravimetric  sampling  are  considered.   The 
neutron  scattering  method  allows  rapid  instantaneous 
indications  of  soil  water  content  and  has  been  reported  on 
by  many  investigators  over  the  last  30  years  (Stolzy  et  al., 
1959;  Hillel,  1982;  Smajstrla  and  Harrison,  1984;  Cassel, 
1984) .   This  method  of  measurement  is  non-destructive, 
practically  independent  of  temperature  and  pressure,  and 
allows  repeatable  measurements  of  the  volumetric  water 
content  in  a  representative  volume  of  soil  (at  the  same 
location) . 

Neutrons  are  emitted  from  a  radiation  source  attached 
to  a  probe  which  is  lowered  into  the  ground  through  an 
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access  tube.   The  access  tube  serves  to  maintain  the  hole 
into  which  the  probe  is  inserted  and  standardize  measuring 
conditions.   Hydrogen  nuclei  react  with  fast-moving  neutrons 
emitted  and  cause  them  to  lose  energy.   The  number  of 
resulting  slower  neutrons  are  then  detected  by  a  detector  on 
the  same  probe  and  counted  by  a  scaler  or  ratemeter  that 
monitors  the  flux  of  slow  neutrons  scattered  by  the  soil. 

A  neutron  meter  measures  soil  water  content  in  a 
spherical  volume  of  soil  around  the  detector.  This  "sphere 
of  influence"  varies  with  a  radius  of  less  than  10  cm  in  a 
wet  soil  to  25  cm  or  more  in  a  dry  soil.   (In  a  dry  soil, 
the  cloud  of  slow  neutrons  is  less  dense  and  extend  farther 
from  the  source.)   The  relatively  large  soil  volume 
monitored  can  be  an  advantage  in  water  balance  studies  since 
this  volume  may  be  more  representative  of  the  field  soil 
than  the  small  samples  taken  for  gravimetric  measurement  of 
soil  moisture. 

Neutron  probes  are  attractive  for  measuring  field 
moisture  conditions  for  irrigation  scheduling  on  a  short 
term  (hourly)  basis  since  their  readings  give  a  rapid 
indication  of  soil  moisture.   However,  the  low  and  variable 
degree  of  spatial  resolution  makes  the  neutron  moisture 
meter  unsuitable  for  the  detection  of  moisture  profile 
discontinuities  (wetting  fronts  or  the  boundaries  between 
distinct  layers  of  soil) .   Also,  accurate  measurements  near 
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the  surface  are  hindered  because  of  the  escape  of  fast 
neutrons  through  the  surface. 

Neutron  measuring  equipment  requires  extensive 
calibration  for  the  particular  soil  or  group  of  soils.   Even 
though  most  of  the  hydrogen  in  mineral  soil  is  associated 
with  water,  there  is  sometimes  a  significant  enough  amount 
of  hydrogen  to  warrant  calibration  of  the  probe  in  each 
specific  soil  type  it  is  used.   Once  a  calibration  curve  has 
been  developed,  however,  the  meter  is  easy  to  use  with  only 
a  small  expenditure  of  time  at  a  specific  field  site. 

Gamma-ray  attenuation.   The  gamma-ray  attenuation 
technique  measures  the  bulk  density  of  the  soil  matrix  or 
can  be  used  to  determine  volumetric  water  content.   If  soil 
bulk  density  is  known,  this  technique  can  measure  the  water 
content  of  a  fixed  soil  volume.   Thus,  it  has  the  advantage 
over  the  neutron  method  where  the  volume  of  soil  over  which 
soil  water  content  is  measured  varies  according  to  the  soil 
water  content.   By  using  the  gamma-ray  technique,  instan- 
taneous readings  of  soil  water  content  can  be  taken.   Ferraz 
and  Mansell  (1979)  present  a  detailed  description  of  theory 
and  implementation  of  gamma-ray  attenuation  methods.   Gamma- 
ray  instruments  measure  the  amount  of  gamma  radiation  lost 
as  a  narrow  radiation  beam  is  directed  through  the  soil. 
Gamma  rays  lose  part  of  their  energy  upon  striking 
water  present  in  the  soil.   As  the  volume  of  water  in  the 
soil  changes,  the  amount  of  energy  lost  also  changes. 
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The  fraction  (dl/I)  of  gamma  rays  attenuated  is 
directly  proportional  to  the  thickness  of  the  material,  x, 
where  a  proportionality  constant,  k,  is  referred  to  as  the 
linear  attenuation  coefficient. 

dl/I  =  -kdx  (2-5) 

Attenuation  coefficients  may  also  be  expressed  as  a  mass 
attenuation  coefficient,  n.      The  mass  attenuation 
coefficient  equals  the  linear  coefficient,  k,  divided  by  the 
density,  p.   This  coefficient  depends  upon  the  chemical 
properties  of  the  material.   After  a  collimated  beam  of 
single-energy  gamma  photons  has  passed  through  the  material, 
measurements  of  the  attenuated  radiation  permit  calculation 
of  the  density  of  that  material.   The  Lambert-Beer  equation 
(the  integral  form  of  equation  2-5)  can  be  used  to  calculate 
the  resulting  intensity  (number  of  photons/cm2  -  sec)  after 
the  beam  has  passed  through  the  material 

I  =  loo  exp  [-MPX]  (2-6) 

where 

loo  =  the  intensity  of  the  collimated  beam  and 

p  =  the  density  (g/cm3)  of  the  homogeneous  material. 

When  dealing  with  a  heterogeneous  material  such  as 
soil,  components  of  equation  (2-6)  in  the  bracketed  term  [  ] 
include  those  of  the  soil,  water,  and  air.   The  term 
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involving  air  is  insignificant  compared  to  those  of  soil  and 
water  and  if  it  is  neglected,  the  equation  is 

I  =  loo  exp  [-MsPsxs  -  MwPwxw]  (2-7) 

where  the  subscript  values  s  and  w  correspond  to  character- 
istics for  soil  and  water,  respectively.   Variables  xs  and 
xw  are  equivalent  thicknesses  of  the  soil  and  water  respect- 
ively.  Equation  (2-7)  can  be  further  simplified  since  the 
product  of  ps  (particle  density  for  soil)  and  xs  is  the  same 
as  the  product  of  pb  (soil  bulk  density)  and  x,  the 
thickness  of  the  soil  sample.   Also,  xw,  the  equivalent 
water  thickness  equals  the  product  of  6,  the  volumetric 
water  content,  and  x.   Using  these  relationships,  equation 
(2-7)  becomes 

I  =  loo  exp  [-x(Mspb  +  mw9)  ]  .  (2-8) 

Equation  (2-8)  describes  attenuation  of  a  collimated  beam 
through  the  soil  as  a  function  of  the  combined  effects  of 
the  bulk  density  and  volumetric  water  content  of  the  soil. 
If  the  bulk  density  is  known,  equation  (2-8)  can  be  re- 
arranged so  9  can  be  found  if  the  transmitted  intensity,  I^, 
is  known  and  the  resulting  intensity  I  is  measured  with  a 
gamma-ray  instrument.   If  the  soil  is  dry  or  the  value  of  9 
has  been  determined  by  gravimetric  means,  the  soil  bulk 
density,  pb,  can  be  found. 
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The  gamma-ray  instrument  commonly  used  to  measure  soil 
moisture  in  situ  consists  of  two  spatially  separated  probes 
which  are  inserted  in  parallel  access  tubes.   One  probe,  the 
source,  contains  a  pellet  of  radioactive  cesium  (137Cs 
emitting  gamma  radiation  with  an  energy  of  0.661  MeV) .   The 
other  probe,  the  detector,  consists  of  a  scintillation 
counter  and  amplifier.   The  instrument  readout  indicates  the 
number  of  counts  in  a  specified  period.   This  technique 
permits  much  better  resolution  of  soil  moisture  profiles 
than  the  neutron  moisture  meter.   The  moisture  meter  can 
focus  a  narrow  beam  to  study  soil  profiles  as  small  as  1  cm 
thick  permitting  detection  of  profile  discontinuities  such 
as  wetting  fronts  or  boundaries  between  soil  layers.   Thus 
water  content  distributions  near  the  soil  surface  can  also 
be  accurately  measured. 
Soil  Water  Potential 

The  potential  energy  of  soil  water  is  of  particular 
interest  in  relation  to  the  plant  environment  because  it 
describes  the  amount  of  work  the  plant  must  expend  to 
extract  water  for  its  growth  processes.   Of  the  two 
principal  forms  of  energy,  kinetic  and  potential,  potential 
energy  is  the  one  of  significance  since  the  movement  of 
water  in  an  unsaturated  soil  is  quite  slow  and  considered 
negligible.   The  potential  energy  of  the  soil  water  is  due 
to  its  position  or  internal  condition  and  can  vary  over  a 
very  wide  range.   Differences  in  potential  energy  of  water 
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between  one  point  and  another  cause  water  to  flow  within  the 
soil  in  the  direction  of  decreasing  potential  energy.   Soil 
water,  as  with  all  parcels  of  matter,  seeks  a  state  of 
equilibrium  with  its  surroundings,  definable  as  a  condition 
of  uniform  potential  energy.   Soil-water  potential  is  a 
criterion  for  this  energy  and  expresses  the  potential  energy 
of  the  water  in  the  soil  about  a  standard  reference  state. 
The  standard  state  is  usually  that  of  pure  free  (unbound) 
water  at  atmospheric  pressure,  at  the  same  temperature  as 
the  soil  water,  and  at  a  constant  elevation.   The  potential 
gradient  that  describes  the  force  acting  on  the  soil  water 
is  defined  by  -d0/dx.   The  term  -d0/dx  describes  the  change 
in  energy  potential  with  distance,  x.   The  negative  sign 
denotes  that  movement  will  occur  from  a  higher  to  lower 
potential.   The  total  water  potential  0t  can  be  thought  of 
as  the  sum  of  many  factors  that  cause  its  potential  to 
differ  from  that  of  pure  water 


0t  =  00  +  01  +  02  +  03  +  04  +  05  +  06       (2-9) 


where 


00  =  the  pressure  component  due  to  air  pressure  and 

mass  of  overlying  water  at  soil  surface, 

01  =     the  matric  component  determined  by  water 

adsorption  and  capillarity  in  the  soil  matrix, 

02  =  the  gravitational  component  determined  by  a 

difference  in  elevation  of  soil  water  about  an 
arbitrary  datum, 

03  =  the  solute  component  determined  by  differences  in 

solute  concentrations  across  an  air  gap  or  semi- 
permeable membrane  such  as  a  plant  root, 
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04  =  the  temperature  component,  determined  by 

temperature  differences  in  the  soil, 

05  =  the  overburden  component,  determined  by  the  mass 

of  the  overlying  soil,  and 

06  =  tne  electrical  component,  determined  by 

electrostatic  fields  in  the  soil  matrix. 

Physically,  the  components  of  soil  water  potential  are 
usually  expressed  in  one  of  three  common  ways.  Hillel 
(1982)  listed  these  as 

1.  Energy  per  unit  mass  —  The  dimensions  of  energy  per 
unit  mass  are  (ML2T~2) (1/M)  which  reduce  to  L2T~2. 
In  the  SI  system,  units  are  joules/kg. 

2 .  Energy  per  unit  volume  —  The  dimensions  of  energy 
per  unit  volume  are  (ML2T~2) (1/L3)  which  reduce  to 
ML-1T~2.   This  can  be  expressed  as  an  equivalent 
pressure  in  SI  units  as  dynes/cm2  or  Nt/m2  (Pascals) . 
Energy  per  unit  volume  is  also  commonly  expressed  in 
bars  or  atmospheres.   This  physical  representation 
can  be  used  since  water  is  nearly  incompressible  and 
hence,  its  density  is  almost  independent  of  pressure. 

3.     Energy  per  unit  weight  (hydraulic  head)  —  The 

dimension  on  hydraulic  head  is  L.   Hydraulic  head 
defines  the  height  of  a  liquid  (water)  that  exerts  a 
pressure  on  the  bottom  of  a  column.   In  SI  units, 
this  is  represented  by  meters  of  water. 
Hillel  (1982)  pointed  out  that  not  all  the  components 

of  potential  act  in  the  same  way  and  their  separate 
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gradients  may  not  be  equally  effective  in  causing  flow.   The 
osmotic  potential,  p3  becomes  important  whenever  a  membrane 
or  diffusion  barrier  is  present  (i.e.,  a  plant  root  in 
contact  with  the  soil)  that  transmits  water  more  readily 
than  salts.   Osmotic  pressure  can  be  thought  of  as  a  suction 
since  water  is  drawn  across  the  barrier  into  contact  with 
the  solution.   Thus  solutes  tend  to  lower  the  potential 
energy  of  the  soil  water. 

The  component  04  reflects  the  influence  of  temperature 
on  soil  water  potential.   Taylor  and  Ashcroft  (1972)  noted 
that  total  potential  is  usually  defined  for  isothermal 
conditions  and  that  the  introduction  of  04  has  a  marked 
influence  on  water  potential.   Taylor  et  al.  (1961)  found 
that  at  higher  temperatures,  water  potential  was  higher  at 
constant  water  content.   Conversely,  at  constant  water 
potential,  less  water  was  retained  by  the  soil  at  high 
temperatures.   The  authors  found  that  temperature  effects 
were  small  in  moist  soils  (at  high  water  potentials) .   They 
also  found  that  temperature  effects  were  more  pronounced  in 
fine  textured  soils  than  in  coarse  textured  soils. 

The  overburden  component,  05,  reflects  the  influence  of 
increasing  bulk  density  on  water  potential.   Box  and  Taylor 
(1962)  found  that  increasing  soil  bulk  density  resulted  in 
small  increases  in  matric  potential.   The  maximum  change, 
however,  was  about  7%  in  the  range  of  conditions  sampled  and 
depended  on  the  moisture  content  and  temperature  of  the  soil 
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sample.   Most  differences  in  potential  were  much  lower  than 
7%  over  most  ranges  of  bulk  density,  temperature  and  water 
contents.   The  electrical  component,  06  is  important  if  the 
soil-water  system  is  subject  to  electric  fields  that  may  be 
encountered. 

The  most  important  components  of  potential  when  temper- 
ature and  air  pressure  are  constant  are  terms  0O,  0lr  and 
$2-      The  sum  of  0O   and  0^  is  termed  the  water  pressure  or 
suction  component  and  is  represented  by 

0p  =  (00  +  H)    "   P9h  (2-10) 

where 

p  =  density  of  water, 

g  =  acceleration  of  gravity,  and 

h  =  pressure  or  suction  head. 

The  term  h  is  pressure  head  in  a  saturated  soil  and  suction 
head  in  an  unsaturated  soil.   Therefore,  0p  is  zero  or 
positive  for  a  saturated  soil  and  negative  for  an  unsat- 
urated soil .   The  term  02    is  tne  gravitational  component 
defined  by 


where 


0g  =  02  =  P9Z  (2-11) 

z  =  the  vertical  distance  above  or 

below  the  reference  plane  z  =  0. 
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Equation  (2-9)  can  be  simplified  to  include  only  the 
pressure  and  gravitational  head  components  yielding 

9    =   Pp  +  0g-  (2-12) 

Eliminating  p  and  g  from  equations  (2-10)  and  (2-11) , 
equation  (2-12)  can  also  be  written  as 


h  +  z 


(2-13) 


where  H  is  the  hydraulic  head  expressed  in  energy  per  unit 

weight  (cm  of  water) . 

Field  measurement  of  soil  water  potential 

Several  methods  have  been  used  to  measure  soil  water 
potential  in  situ.   In  irrigation  management,  the  objective 
is  to  keep  soil  water  potential  in  a  range  that  is  non- 
stressful  to  the  plant.   Taylor  and  Ashcroft  (1972) 
presented  upper  limit  suction  values  (lower  limits  of  water 
potential)  for  several  crops  based  on  experimental  data 
presented  by  several  authors.   Supplemental  irrigation 
should  be  applied  before  the  soil  dries  to  those  suction 
values.   These  upper  limit  suction  values  allow  maximum 
yields  for  crops  grown  in  deep,  well-drained  soils  that  are 
otherwise  managed  for  maximum  production.   For  field  corn, 
typical  values  range  from  about  50  kPa  suction  in  the 
vegetative  stage  to  800  kPa  during  ripening.   This  variance 
indicates  that  the  crop  is  more  sensitive  to  water  stress  at 
certain  periods  of  growth.   During  these  periods,  soil  water 
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suction  should  be  kept  at  a  low  value  by  making  sufficient 
water  available.   The  suction  values  illustrated  for  field 
corn  are  in  the  range  of  values  encountered  for  many  crops. 
Many  of  the  commonly  used  methods  for  measuring  soil  water 
potential  and  field  observations  associated  with  them  are 
described  in  the  discussion  following. 

Tensiometers.   A  tensiometer  consists  of  a  porous  cup 
connected  through  a  tube  to  a  Bourdon  tube  vacuum  gauge. 
The  porous  cup  is  made  of  ceramic  for  its  permeability  to 
water  and  structural  strength.   The  ceramic  cup  is  in 
contact  with  the  soil ,  and  a  partial  vacuum  is  created  as 
water  moves  from  the  tube.   The  vacuum  is  a  direct 
indication  of  the  energy  that  a  plant  would  need  to  exert  to 
extract  this  water  from  the  soil. 

Many  investigators  have  used  tensiometers  successfully 
for  scheduling  irrigations  and  other  water  use  evaluations. 
Tensiometers  are  useful  tools  for  managing  irrigation  in 
sandy  soils  typical  of  Florida  (Smajstrla  et  al.,  1982; 
Smaj stria  and  Harrison,  1984)  because  most  crops  are 
irrigated  in  the  range  of  potentials  that  can  be  read  with 
tensiometers.   Some  of  the  earliest  field  applications  of 
tensiometers  were  studied  by  Richards  and  Neal  (1937). 
Their  study  included  evaluation  of  suction  differences  that 
exist  at  different  plots  in  a  uniform  soil,  tests  on  the 
effect  of  various  crops  or  soil  treatments  on  moisture  in 
adjacent  soil  plots,  and  tests  on  the  usefulness  of 


27 
tensiometers  for  studying  the  effect  of  mulches  on  soil 
moisture.   One  set  of  data  showed  pronounced  diurnal 
fluctuations  in  soil  water  suction  at  shallow  depths.   The 
authors  attributed  these  fluctuations  to  re-wetting  of  the 
profile  by  upward  water  flow  that  exceeded  evaporation  at 
night. 

Russell  et  al.  (1940)  installed  tensiometers  at  several 
depths  and  lateral  positions  under  corn  to  follow  soil 
moisture  conditions  throughout  the  growing  season.   The 
authors  observed  that  the  zone  of  water  absorption  extended 
laterally  after  water  was  initially  depleted  directly  under 
the  corn  plants.   Later  in  the  season,  the  lateral  expansion 
of  the  absorption  zone  occurred  at  successively  lower 
depths.   Soil  water  suction  readings  gave  an  indication  of 
the  major  zones  of  water  uptake  and,  thus,  the  distribution 
of  active  roots. 

Stolzy  et  al.  (1959)  used  tensiometers  at  two  soil 
depths  in  several  locations  of  a  citrus  orchard  that  was  on 
a  standard  irrigation  schedule.   The  shallow  depth  (30  cm) 
served  as  a  guide  for  scheduling  irrigations;  the  deeper  one 
(60  cm)  was  placed  at  the  bottom  of  the  zone  of  water 
regulation  and  gave  an  indication  of  irrigation  water 
penetration.   The  authors  used  a  suction-time  graph  to  plot 
the  responses  of  the  tensiometers  over  the  set  irrigation 
schedule.   At  one  tensiometer  station,  a  lack  of  a  drying 
response  was  noticed  with  the  deep  tensiometer  indicating  a 
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nearly  impermeable  soil  horizon  beneath  the  60  cm  depth. 
The  authors  surmised  that  saturated  conditions  caused  the 
roots  to  disappear,  probably  due  to  root  rot  fungi.   Also, 
the  upper  tensiometers  indicated  very  high  suction  values 
between  irrigations,  placing  undue  moisture  stress  on  the 
trees.   Based  on  these  observations,  the  authors  suggested 
reducing  the  amount  of  water  applied  per  irrigation  to 
prevent  saturation  and  spacing  irrigations  closer  together 
to  ensure  that  the  trees  were  not  being  stressed. 

The  idea  of  using  a  suction-time  graph  with  tensio- 
meters to  schedule  irrigations  was  extended  by  Richards  and 
Marsh  (1961)  and  Taylor  (1965).   Richards  and  Marsh  (1961) 
recommended  that  soil  suction  records  be  taken  at  three 
stations  for  any  area  that  is  to  be  irrigated  as  a  unit. 
They  suggested  placing  the  upper  tensiometer  in  the  zone  of 
maximum  root  density  and  the  deep  tensiometer  such  that  70 
to  80  percent  of  the  feeder  roots  were  above  that  depth. 
Taylor  (1965)  suggested  that,  for  annual  crops,  additional 
indicating  devices  be  installed  within  the  top  15  cm  of  soil 
to  indicate  conditions  during  the  seedling  stage.   The 
readings  could  then  be  discounted  when  the  crops  were  well 
established.   The  author  also  suggested  that  irrigation  be 
adjusted  so  the  deep  tensiometer  reads  a  final  suction  value 
slightly  higher  than  that  corresponding  to  field  capacity. 
This  would  assure  that  deep  percolation  is  negligible. 
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More  recent  studies  utilized  tensiometers  fitted  with 
commercial  pressure  transducers  to  allow  automated  measure- 
ment of  soil  water  potentials.   Thomson  et  al.  (1982)  used 
this  type  of  instrument  to  test  a  scheduling  algorithm  for 
center  pivot  irrigation  systems.   The  tensiometer/pressure 
transducer  combination  provided  stable  readings  up  to  the 
useful  tension  limit  of  the  tensiometer  (about  80  kPa 
suction)  where  the  readings  would  level  off.   Diurnal 
fluctuations  in  tensiometer  readings  due  to  soil  water  re- 
distribution at  night  were  also  observed.   The  minimum  and 
maximum  tension  points  occurred  at  almost  identical  times  of 
the  day  as  those  reported  by  Richards  and  Neal  (1937) .   Long 
(1982)  used  a  pressure  transducer  that  could  be  screwed 
directly  into  the  tensiometer  and  later  described  a  data- 
logging system  for  automatically  measuring  soil  water 
potential  (Long,  1984).   Stone  et  al.  (1985)  developed  a 
microcomputer-based  data  acquisition  system  that  used 
pressure  transducers  with  built  in  signal  amplifiers.   A 
main  objective  of  their  work  was  to  field  test  the  entire 
system  against  manually  read  mercury  manometers.   The 
authors  found  excellent  agreement  between  potentials  read 
with  the  tensiometer/pressure  transducer  combination  and 
those  read  with  the  mercury  manometers. 

As  has  been  stated  previously,  tensiometers  are  well 
suited  to  schedule  irrigations  in  Florida  soils  since  the 
suction  levels  used  for  scheduling  are  within  the  working 
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range  of  the  tensiometer.   Tensiometers  would  not  be  the 
devices  of  choice  when  a  plant  is  irrigated  at  a  higher 
suction  value.   A  plant  may  be  irrigated  at  a  higher  suction 
value  in  a  soil  that  has  smaller  particle  sizes  and  whose 
characteristic  curve  shows  a  more  slowly  increasing  suction 
value  under  periods  of  high  evaporative  demand.   Sandy  soils 
reach  high  suction  values  much  more  rapidly  because  of  their 
low  water  holding  capacities.   Thus,  most  recommendations 
are  to  irrigate  at  lower  suction  values  in  sandy  soils 
(Smajstrla  et  al.,  1984)  since  small  changes  in  soil  water 
content  can  cause  large  changes  in  water  potential. 

Depending  on  the  method  of  irrigation,  and  under 
conditions  of  high  evaporative  demand,  the  upper  limit 
suction  level  could  be  exceeded  by  the  next  irrigation  cycle 
if  too  high  a  suction  value  were  chosen  as  the  irrigation 
trigger  point.   Lang  and  Gardner  (1970)  and  Taylor  and 
Ashcroft  (1972)  also  pointed  out  that  if  the  atmosphere  is 
severely  desiccating,  plants  can  suffer  from  serious  water 
deficiency  even  at  very  low  suction  values.   Under  these 
conditions,  plants  cannot  extract  water  from  the  soil  at  a 
rate  sufficient  to  meet  the  evaporative  demand. 

Tensiometers  do  not  record  the  water  potential  due  to 
dissolved  salts  since  the  ceramic  cup  is  permeable  to  both 
water  and  dissolved  salts.   In  low  saline  soils,  this 
osmotic  potential  would  not  be  a  problem  but  would  need  to 
be  recorded  using  appropriate  instrumentation  if  the  soil 
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was  saline.   In  that  case,  osmotic  potential  is  a  large  part 
of  the  total  potential. 

Electrical  resistance  devices.   Direct  measurement  of 
soil  water  could  be  greatly  facilitated  if  electrical 
resistance  of  a  soil  volume  depended  on  the  soil  water 
content  alone.   Simple  resistance  measurements  would  elim- 
inate the  need  for  the  aforementioned  methods  of  determining 
water  content.   However,  the  electrical  resistance  of  a  soil 
volume  depends  on  its  composition  and  soluble  salt  concen- 
tration present  as  well  as  its  water  content. 

The  electrical  resistance  of  a  porous  body  placed  in 
the  soil  and  left  to  equilibrate  can  be  correlated  with  soil 
water  potential,  however.   Electrical  resistance  devices 
that  measure  soil  water  potential  use  this  principle.   An 
electrical  resistance  device  consists  of  electrodes  embedded 
in  a  porous  block  or  solidly  packed  porous  material.   Like 
soil,  the  porous  matrix  has  its  own  characteristic  curve 
that  relates  water  potential  to  internal  water  content.   The 
electrical  conductivity  of  moist  porous  material  is  due 
primarily  to  the  permeating  fluid  rather  than  the  matrix 
material.   Thus,  the  electrolyte  concentration  of  the  fluid 
as  well  as  the  water  content  both  influence  the  electrical 
resistance. 

One  type  of  device  uses  gypsum  as  the  porous  material 
in  which  the  electrodes  are  embedded  (Bouyoucos,  1961) . 
Gypsum  maintains  a  nearly  constant  electrolyte  concentration 
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corresponding  to  that  of  a  concentrated  solution  of  calcium 
sulfate.   This  tends  to  buffer  the  effects  of  varying 
concentrations  of  the  soil  solution  such  as  those  due  to 
fertilization  or  low  levels  of  salinity.   Since  gypsum  is 
dissolvable,  however,  these  blocks  eventually  deteriorate  in 
the  soil.   Thus,  the  relationship  between  soil  water  suction 
and  electrical  resistance  varies  with  time.   This  occurs 
because  dissolution  of  the  gypsum  changes  the  internal 
porosity  and  pore-size  distribution  of  the  block  and  thus, 
the  block's  characteristic  curve.   Gypsum  has  a  character- 
istic much  like  a  very  heavy  clay.   The  pores  are  very  small 
and  do  not  begin  to  lose  water  until  about  30  cb.  suction. 
For  sands  typical  to  Florida,  more  than  half  of  the  water 
available  to  the  crop  has  already  been  depleted  at  this 
suction  level.   Thus,  gypsum  blocks  would  not  be  the 
instruments  of  choice  for  coarse  soils  typical  of  Florida. 

Blocks  made  of  inert  materials  such  as  nylon  or 
fiberglass  have  also  been  developed  (Colman  and  Hendrix, 
1949) .   These  blocks  have  larger  pore  sizes  making  them  more 
responsive  in  the  wet  range  of  soil  moisture.   However, 
these  are  highly  sensitive  to  small  variations  in  salinity 
of  the  soil  solution  making  them  less  appropriate  for  use  in 
irrigation  scheduling. 
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Another  electrical  resistance  type  sensor  that  has  been 
developed  in  recent  years  is  called  the  Watermark1  sensor. 
This  device  consists  of  two  concentric  electrodes  buried  in 
a  matrix  material  that  is  held  in  place  by  a  synthetic 
membrane.   As  with  the  gypsum  block,  the  sensor's  resis- 
tance varies  with  the  amount  and  electrical  conductivity  of 
the  soil  solution  between  the  electrodes.   The  conductivity 
is,  in  turn,  related  to  the  soil  water  potential  by  the 
characteristic  of  the  reference  matrix.   Pore  sizes  in  this 
matrix  are  larger  than  those  of  the  gypsum  block  allowing 
more  sensitivity  in  the  wet  range  of  soil  moisture 
variation.   The  Watermark  sensor  uses  a  matrix  material  that 
releases  water  at  lower  suctions  (about  lOcb.)  up  to  about 
200  cb.  where  readings  begin  to  level  off.   This  sensor, 
therefore,  works  in  the  same  range  as  tensiometers  (and 
higher)  but  does  not  require  servicing.   The  Watermark 
sensor  also  contains  a  material  in  the  matrix  mixture  that 
provides  a  standard  reading  base  and  neutralizes  the  effects 
of  soil  salinity.   The  matrix  material  is  said  not  to 
dissolve  (Larson,  1987) ,  but  small  calibration  shifts  may 
occur  with  time  as  the  portion  of  the  matrix  mixture  that  is 
reactive  dissolves.   As  this  occurs,  the  sensor's  effective- 
ness in  neutralizing  salts  may  also  diminish. 


1Use  of  tradenames  in  this  dissertation  does  not 
constitute  endorsement  by  the  author  of  the  products  named 
nor  criticism  of  ones  not  mentioned. 
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Gypsum  blocks,  fiberglass  blocks,  and  Watermark  sensors 
require  the  same  type  of  excitation  to  read  them.   Although 
resistance  ranges  may  be  different  in  each  one's  working 
range  of  operation,  principles  for  reading  all  three  are  the 
same.   A  low  voltage  alternating  current  (A.C.)  is  impressed 
upon  the  sensor  and  an  output  voltage  proportional  to  the 
sensor's  A.C.  resistance  can  be  obtained  by  one  of  many 
methods.   Some  methods  include  placing  a  resistor  in  series 
with  the  sensor  and  reading  the  voltage  drop,  using  the 
sensor  in  one  leg  of  a  bridge  circuit,  or  using  the  sensor 
in  the  feedback  leg  of  an  operational  amplifier  circuit 
(Thomson  and  Armstrong,  1987) .  The  method  used  should 
guarantee  enough  output  resolution  over  the  working  range  of 
measurement . 

Alternating  current  excitation  is  usually  used  to  avoid 
polarizing  a  resistance  sensor  since  it  can  act  as  a 
capacitor.   A  capacitor  builds  up  and  stores  a  charge  and 
thus  does  not  conduct  direct  current  after  a  very  short 
period.   If  a  direct  current  (D.C.)  voltage  is  impressed  on 
the  sensor,  it  must  be  read  after  a  very  short  period.   A 
way  to  obtain  a  value  of  sensor  resistance  using  this 
principle  is  to  apply  a  D.C.  pulse  of  very  short  duration 
(Strangeways,  1983)  and  read  the  resulting  voltage  drop 
across  a  resistor  in  series  with  the  sensor. 

The  relationship  for  A.C.  impedance,  Z ,  of  a  resistance 
type  soil  moisture  sensor  is  given  by 
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(2-14) 


where 


Z   =  Impedance  (ohms) , 
R  =  Resistance  (ohms) ,  and 
Xc  =  Capacitive  Reactance  (ohms) . 
Capacitive  reactance  (Xc)  is  expressed  as  Xc  =  l/(2irfC) 
where  f  is  excitation  frequency  (hz)  and  C  is  capacitance 
(farads) .   The  dielectric  properties  of  the  matrix  material 
change  as  its  moisture  content  changes.   Thus,  the 
excitation  frequency  should  be  chosen  so  the  capacitive 
reactance  is  insignificant  compared  to  its  A.C.  resistance 
over  the  working  range  of  the  sensor. 

The  A.C.  resistance  for  all  resistance  type  sensors  is 
a  temperature  dependent  function.   For  this  reason,  a 
temperature  correction  must  be  applied  to  the  resistance- 
suction  calibration  curve  for  each  type  sensor.   Cary  (1981) 
developed  a  temperature  correction  function  for  gypsum 
blocks.   The  author  presented  an  equation  that  corrects  the 
measured  resistance  to  a  22°C  standard  resistance.   An 
equation  then  calculates  soil  water  potential  using  this 
standard  resistance.   Storm  et  al.  (1984)  developed 
temperature  correction  models  for  gypsum  blocks  with 
parallel  electrodes,  gypsum  blocks  with  concentric 
electrodes,  fiberglass  resistance  cells,  and  Watermark 
sensors.   Data  was  presented  relating  A.C.  resistance  to 
temperature  at  a  few  values  of  moisture  content,  but  the 
relationship  of  moisture  content  vs.  suction  (the  soil 
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moisture  characteristic  curve)  was  not  presented  for  the 
soil  mixture  used.   Thus,  the  resistance-suction 
relationship  could  not  be  inferred  from  the  data  presented. 
Thomson  and  Armstrong  (1987)  presented  a  mathematical  model 
that  related  electrical  resistance  of  the  Watermark  sensor 
to  soil  water  suction  and  temperature.   Soil  water 
extraction  equipment  was  used  to  perform  the  calibration  at 
several  temperatures  and  suction  values  in  the  working  range 
of  the  sensor.   Larson  (1987)  indicated  that  resistance  of 
the  Watermark  sensor  varies  about  1  %  of  per  degree 
fahrenheit  (°F) ,  or  1.8  %  per  degree  Celsius  (°C) .   Data 
presented  by  Storm  et  al .  (1984)  and  Thomson  and  Armstrong 
(1987)  suggest,  however,  that  the  sensor's  resistance  can 
vary  by  as  much  as  2.6  %  per  °C  at  some  temperature  ranges 
and  suctions. 

Proper  installation  of  resistance  type  sensors  is 
essential  if  they  are  to  properly  represent  soil  water 
conditions  in  the  soil  zone.   Bruce  et  al.  (1980)  suggest 
that,  in  addition  to  installation  procedures  described  by 
sensor  manufacturers,  the  soil  be  carefully  tamped  back  in 
the  installation  hole  to  a  density  slightly  higher  than 
natural  density.   This  should  be  done  to  prevent  excess 
water  at  the  surface  from  freely  running  down  the  hole  to 
the  blocks.   The  authors  also  suggest  a  slight  mounding  of 
the  soil  surface  as  a  further  precaution. 
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Heat  pulse  matric  potential  sensors.   Heat  pulse 
sensors  measure  the  soil-water  potential  by  the  rate  of  heat 
dissipation  in  a  porous  ceramic.   The  amount  of  water  in  the 
ceramic  block  in  equilibrium  with  soil  water  affects  the 
thermal  conductivity  and  thus  the  temperature  response  for  a 
given  amount  of  heat  applied.   A  diode  in  the  block  changes 
its  resistance  proportional  to  the  temperature  change 
resulting  from  a  heat  pulse  of  known  duration  imposed  by  a 
very  small  electric  heater.   Phene  et  al.  (1973)  developed  a 
sensor  of  this  type  in  which  the  sensing  diode  was  placed  in 
one  leg  of  a  wheatstone  bridge  circuit.   The  resulting 
voltage  change  across  the  bridge  gave  an  indication  of  soil 
water  potential  by  the  amount  of  water  in  the  ceramic  block 
in  equilibrium  with  the  soil  water.   The  original  sensor 
used  a  temperature  compensating  diode  of  the  same  type  in 
the  adjacent  leg  of  the  wheatstone  bridge  to  account  for 
errors  caused  by  temperature  fluctuations  in  the  soil. 
Phene  et  al.  (1981)  described  sensor  testing  and 
calibration  procedures,  signal  conditioning  circuitry,  and  a 
computerized  data  acquisition  system  for  sensor 
measurements.   The  authors  performed  statistical  tests  to 
indicate  variability  between  sensors  and  give  parameters  for 
matching  sensors  so  a  single  calibration  curve  could  be 
used.   Quick  tests  were  also  conducted  to  determine  the  time 
required  for  the  sensor  to  reach  water-pressure  equilibrium 
with  step  increases  in  pressure  from  0-60  kPa.   The  time 
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required  for  equilibrium  varied  from  1  hr  at  10  kPa  to  9  hr 
at  90  kPa.   The  authors  indicated  that  pressure  potentials 
in  soil  change  in  a  continuous  rather  than  the  discontinuous 
node  represented  by  the  step  change.   They  therefore 
surmised  that  the  sensor  should  respond  rapidly  to 
continuous  changes  caused  by  sinks  and  sources  if  there  is 
intimate  contact  between  the  sensor  and  soil.   The  latest 
version  of  the  sensor  is  claimed  to  work  from  nearly 
saturated  conditions  to  about  3  bars  tension  and  can  be 
purchased  factory  calibrated  from  0  to  1  bar  (Agwatronics, 
1987).   The  cost  of  a  calibrated  sensor  was  $110.00  in  1987 
{C.  J.  Phene  II,  personal  communication,  1987). 

Thermocouple  psvchrometers.   Thermocouple  psychrometers 
are  also  used  for  in-situ  measurements  of  soil  water 
potential.   Brown  (1970)  reviewed  the  theory  of  thermocouple 
psychrometers  and  their  use  for  measuring  soil  water 
potential.   These  "soil  psychrometers"  consist  of  a 
thermocouple  junction  contained  in  an  air  filled  porous 
ceramic  cup  that  is  inserted  into  the  soil.   The  other 
thermocouple  junction  is  kept  in  an  insulated  medium  to 
provide  a  temperature  reference.   The  ceramic  cup  allows 
vapor  exchange  between  the  soil  and  internal  atmosphere. 
Under  isothermal  conditions,  the  vapor  pressure  of  the 
atuosphere  above  the  soil  and  around  the  thermocouple  will 
come  into  equilibrium  with  the  water  potential  of  the  soil. 
The  vapor  potential  is  then  the  matric  and  osmotic 
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potentials  combined  since  only  water  molecules  can  pass  to 
the  air.   In  operation,  the  thermocouple  junction  in  the 
ceramic  cup  is  cooled  by  applying  a  voltage  of  the  proper 
polarity  between  the  two  junctions.   The  junction  is  cooled 
below  the  dewpoint  of  the  internal  atmosphere,  causing  a 
small  amount  of  water  to  condense  on  the  junction  (Peltier 
effect) .   After  this  cooling,  current  is  stopped  to  allow 
the  condensate  to  evaporate.   The  rate  of  evaporation  is  a 
function  of  the  vapor  pressure  of  the  air  and  hence,  the 
water  potential  of  the  sample.   The  evaporation  cools  the 
junction  as  a  function  of  the  vapor  pressure.   The 
difference  in  temperature  between  the  sensing  junction  and 
reference  junction  causes  a  small  voltage  output  from  the 
thermocouple . 

Thermocouple  psychrometers  are  highly  sensitive  to 
temperature  fluctuations.   Rawlins  and  Dalton  (1967) 
explained  several  ways  that  temperature  changes  can 
influence  the  accuracy  of  thermocouple  output.   For  example, 
the  relationship  between  soil  water  potential  to  vapor 
pressure  depression  (relative  humidity)  is  temperature 
dependent  as  seen  in  the  basic  equation 

0  =  R_T  In  (p/p0)  (2-15) 

V 

where 

0  =  water  potential  (bars  or  atmospheres) , 
R  =  universal  gas  constant. 
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T  =  absolute  temperature  (°K)  , 

p  =  actual  vapor  pressure  of  the  system, 

Po  =  vapor  pressure  of  pure  free  water,  and 

V  =  partial  molal  volume  of  water 

(18.015  cm3mole-1) . 

Also,  the  vapor  holding  capacity  of  air  within  a  sample 
chamber  increases  with  increasing  temperature.   The  relative 
humidity  will  thus  decrease  until  vapor  equilibrium  is  again 
achieved.   If  the  sample  chamber  is  completely  sealed  (as  is 
not  the  case  with  soil  psychrometers) ,  errors  can  be  quite 
significant. 

Rawlins  and  Dalton  (1967)  and  Weibe  et  al.  (1970) 
attempted  to  provide  reasonable  estimates  of  soil  water 
potential  with  their  designs  considering  ambient  temperature 
fluctuations.   Throughout  the  range  of  variation  of  soil 
moisture,  the  vapor  pressure  deficit  was  less  than  2%.   This 
very  small  change  requires  that  the  soil  psychrometer  be 
very  accurate.   The  soil  psychrometer ' s  high  sensitivity  to 
temperature  changes  requires  very  accurate  temperature 
control  and  monitoring.   Since  the  highest  accuracy  claimed 
is  within  a  few  tenths  of  a  bar  (Rawlins  and  Dalton,  1967) , 
soil  psychrometers  are  not  practical  for  use  at  low  soil 
moisture  suction  values  frequently  encountered  in  sandy 
Florida  soils.   Soil  psychrometers  can  be  quite  useful  in 
measuring  the  high  suction  ranges  (2  to  50  bars) . 
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Soil  Moisture  Characteristic  Curve 

The  relationship  between  soil  water  content  and 
pressure  is  strongly  influenced  by  soil  texture  and 
structure.   If  a  slight  negative  potential,  -h  (or  positive 
suction) ,  is  applied  to  water  in  a  saturated  soil  and 
increased  slowly,  no  outflow  will  occur  until  a  critical 
value  is  exceeded.   This  critical  value  is  the  point  where 
the  largest  pore  of  entry  begins  to  empty  and  is  called  the 
air-entry  suction  (Hillel,  1982).   The  air  entry  suction  is 
usually  small  in  coarse  textured  soils  such  as  sands.   A 
gradual  increase  in  suction  results  in  the  emptying  of 
progressively  smaller  pores  until  only  very  small  pores 
retain  water.   In  a  sandy  soil,  pores  are  relatively  large 
and  a  small  amount  of  water  remains  when  the  large  pores  are 
emptied.   Clay  soils,  by  contrast,  retain  a  much  larger 
amount  of  water  at  the  same  suction  level  since  the  pore 
size  distribution  is  more  uniform  and  more  of  the  water  has 
been  adsorbed.   The  soil-moisture  characteristic  curve  is  an 
experimentally  derived  curve  for  the  soil  of  interest  that 
describes  soil  water  retention  in  the  soil  as  a  function  of 
matric  suction  (Figure  2-1).   In  general,  the  greater  the 
clay  content  of  any  given  soil,  the  greater  the  water 
retention  at  any  given  suction  value.   The  amount  of  water 
retained  at  low  suction  values  on  the  curve  (for  all  soils) 
is  chiefly  a  function  of  the  surface  tension  of  the  water, 
its  contact  angle  with  the  solid  particles,  and  the  pore 
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size  distribution.   Hence,  the  structure  of  the  soil 
strongly  affects  water  retention  at  the  lower  suction 
levels.   Water  retention  at  higher  suction  levels  is  more  a 
function  of  adsorption  (adherence  of  water  to  the  soil 
particles)  and  is  thus  more  influenced  by  the  texture  of  the 
soil  material. 

The  soil  serves  as  a  water  reservoir  for  the  plant.   In 
the  field,  the  soil  is  heterogenous  in  nature.   Plant  roots 
can  proliferate  through  two  or  more  zones  of  soil,  each  with 
a  different  soil  moisture  characteristic.   Soil  types  in 
contact  with  each  other  that  differ  in  texture  and  structure 
will  tend  towards  a  state  of  potential  energy  equilibrium. 
However,  the  amount  of  water  each  soil  retains  at  a  given 
water  potential  may  be  markedly  different  and  is  determined 
by  its  individual  soil  moisture  characteristic.   Also,  soil 
layers  of  the  same  texture  can  change  their  characteristics 
through  tillage  operations  that  can  cause  compaction  and 
decrease  the  total  porosity.   A  result  of  this  is  that  the 
saturated  water  content  and  the  initial  decrease  in  water 
content  with  the  application  of  low  suctions  is  reduced. 
Soil  Water  Uptake.  Transpiration,  and  Evaporation 
The  previous  discussion  centered  on  the  soil  and  soil- 
water  characteristics  that  define  the  environment  in  which 
the  plant  roots  propagate.   The  following  discussion  focuses 
on  the  processes  involved  in  water  uptake  by  roots,  plant 
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transpiration,  and  soil  evaporation.   Equations  modeling 
each  of  these  processes  are  presented. 
Water  Uptake  by  Roots  and  Plant  Transpiration 

Water  enters  the  plant  through  its  roots.   Much  of  the 
water  enters  through  epidermal  cells  on  the  outside  of  the 
root  tip  and  root  hairs  that  extend  out  from  these  cells 
among  the  soil  particles  around  the  root.   As  root  tips  grow 
through  the  soil,  they  encounter  new  regions  of  moisture. 
As  the  plant  grows,  the  outer  protective  layers  (or  root 
caps)  are  continually  sloughed  off  at  the  forefront  and 
replenished  by  divisions  of  underlying  cells. 

Two  approaches  have  been  used  to  describe  water  uptake 
by  plant  roots.   The  first  approach,  the  "microscopic"  one 
deals  with  uptake  of  a  single  root.   The  "macroscopic" 
approach,  the  approach  used  in  this  study,  deals  with  the 
integrated  properties  of  the  entire  root  system. 

In  the  discussion  following,  basic  equations  describing 
unsaturated  flow  in  the  soil-water  system  are  presented. 
These  equations  are  then  modified  of  the  soil  by  intro- 
duction of  the  plant  root  system. 

The  generalized  form  of  Darcy's  law  describes,  in  three 
dimensional  space,  flow  in  porous  media 

q  =  -  K  grad  (H)  (2-16) 

where 

q  =  the  volumetric  flux  (the  volume  of 

water  flowing  through  a  unit  cross-sectional 
area  per  unit  time) , 
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grad  (H)  =  the  gradient  of  hydraulic  head  in  three- 
dimensional  space,  and 


K 


the  hydraulic  conductivity  (the  ability  of 
soil  to  conduct  water)  with  dimensions  of  LT-1. 


The  value  of  K  decreases  rapidly  as  soil  water  content  (9) 
decreases  and  suction  (h)  increases.   The  function  K  vs.  9 
or  K  vs.  h  is  different  for  each  soil  layer.   Methods  of 
estimating  unsaturated  hydraulic  conductivity  of  soil  in 
both  the  laboratory  and  field  can  be  found  in  van  Genuchten, 
(1978);  Libardi  et  al.,  (1980);  Chong  et  al.,  (1982),  among 
others. 

Darcy's  law  indicates  that  the  flow  of  liquid  through  a 
porous  medium  occurs  at  a  rate  proportional  to  the  hydraulic 
conductivity  and  magnitude  of  the  driving  force  acting  on 
the  liquid.   For  the  one-dimensional  vertical  case,  the 
liquid  flow  or  volumetric  flux  q  (LT-1)  is  defined  by 

q  =  -  K  dH/dz.  (2-17) 

The  continuity  equation  (conservation  of  mass)  states 
that  without  any  sources  or  sinks,  the  time  rate  of  change 
of  water  content  in  a  unit  volume  must  equal  the  change  in 
flux  with  distance.   The  continuity  equation  is 

d9/dt  =  -  dq/dz.  (2-18) 

If  a  sink  term  representing  water  uptake  by  plant  roots  is 
introduced,  the  equation  is 

dS/dt  =  -dq/dz  -  S  (2-19) 
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where  S  represents  the  volume  of  water  taken  up  by  the  roots 
per  unit  bulk  volume  of  soil  in  a  unit  time  (L3L"3T-1) .   A 
schematic  representation  of  equation  (2-19)  is  shown  in 
Figure  2-2.  (The  flux,  q,  is  defined  by  Darcy ' s  equation  (2- 
17)  for  one-dimensional  flow) .   Over  a  rooting  depth  L,  the 
actual  plant  transpiration  can  then  be  defined  by  the 
integral  of  the  sink  term  S 

T  =  S  dz.  (2-20) 


I 


z=0 

Feddes  et  al.  (1978)  pointed  out  that  the  major 
difficulty  in  solving  equation  (2-19)  was  the  determination 
of  S.   Resistance  analogs  have  been  tried  to  describe  the 
flow  through  the  rooted  soil  zone.   With  these  methods,  the 
rate  of  water  uptake  was  assumed  to  be  directly  proportional 
to  the  difference  in  pressure  head  between  the  soil  and  the 
root  interior,  to  the  hydraulic  conductivity  of  the  soil, 
and  to  some  empirical  root  effectiveness  function.   Various 
investigators  have  described  this  root  effectiveness 
function  in  different  ways. 

Because  of  the  amount  of  field  work  and  experimental 
difficulties  involved  in  determining  the  root  function, 
Feddes  et  al.  (1976)  attempted  to  simplify  the  process  and 
defined  water  uptake  by  roots  as  a  function  of  the  soil 
moisture  pressure  head.   This  relationship  is  illustrated  in 
Figure  2-3:   In  the  range  of  pressure  heads  between  P3  and 
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0C  (tne  wilting  point) ,  the  water  uptake  decreases  linearly 
to  zero.   Feddes  et  al.  (1976)  used  values  of  -50  and  -400 
cm  (0.05  and  0.4  0  bars)  for  0A  and  0B  respectively.  The 
value  for  0B  (-4  00  cm)  is  based  on  a  previous  review  by 
Feddes  of  moisture  requirements  and  the  effect  of  pressure 
head  on  yield  and  quality  of  various  vegetable  crops.   In 
reality,  the  value  of  0B   is  not  constant  and  varies  with  the 
evaporative  demand  of  the  atmosphere  and  plant  type.   Yang 
and  deJong  (1972)  conducted  experiments  on  wheat  to 
determine  the  effect  of  evaporative  demand  and  soil  water 
potential  on  transpiration  and  leaf  water  status.   The 
authors  found  that  under  conditions  of  high  evaporative 
demand,  a  reduction  in  root  water  uptake  occurred  at  higher 
values  of  p   than  under  conditions  of  low  demand. 

The  value  for  0A  is  the  limit  above  which  deficient 
root  aeration  exists.   This  value  varies  with  crop  and  soil 
type  (Feddes  et  al.,  1978).   0A  was  taken  as  -50  cm  and 
defined  for  a  clay  soil  and  a  gas  filled  porosity 
corresponding  to  the  pressure  value  above  which  the  oxygen 
demand  of  a  plant  can  never  be  met  (Feddes  et  al.,  1976). 

Plants  draw  quantities  of  water  through  their  roots  far 
in  excess  of  their  metabolic  needs.   Only  about  1%  of  the 
water  taken  up  by  plants  is  actually  involved  in  metabolic 
activity  (Rosenberg  et  al.,  1983).   The  atmosphere  creates  a 
high  evaporative  demand  because  of  its  dryness  compared  with 
normally  water  saturated  plant  leaves.   This  vapor  pressure 


47 
gradient  is  the  driving  force  behind  the  evaporation 
process,  and  it  varies  with  the  dryness  of  the  air.   The 
loss  of  water  vapor  by  plants  is  called  transpiration  and  is 
not  in  itself  an  essential  physiological  function.   Plants 
can  thrive  in  an  atmosphere  nearly  saturated  with  vapor  and 
hence  require  very  little  transpiration  (Hillel,  1982). 
Thus,  prevailing  climatic  conditions  determine  the  amount 
that  transpiration  exceeds  the  plant's  requirements. 

Plants  are  not  passive  conveyors  of  water  from  the  soil 
to  the  atmosphere.   To  understand  how  water  flows  from  the 
soil  to  the  atmosphere  via  the  plant,  it  is  useful  to 
describe  the  soil-plant-atmosphere  system  as  a  continuum  in 
which  various  resistances  to  water  flow  exist  in  the  soil, 
roots,  xylem,  stomates,  and  the  aerial  boundary  layer.   Of 
these  resistances,  the  resistance  to  flow  in  the  vapor  phase 
is  greatest  of  all  (Rosenberg  et  al.,  1983).   A  large 
potential  gradient  between  the  air  and  leaf  is  required  to 
overcome  this  large  resistance.   Rosenberg  et  al.  (1983) 
list  typical  values  of  water  potential  for  air  as  -80  MPa 
and  for  the  leaf  of  a  corn  plant  as  -0.80  MPa  indicating  by 
far  the  largest  potential  gradient  in  the  continuum. 

Water  vapor  is  formed  within  air-filled  pores  of  the 
leaf.   Vapor  then  diffuses  through  the  stomates  and  out  into 
the  open  air.   Stomates  are  primary  openings  on  the  leaves 
that  both  transpire  water  and  allow  entry  of  C02  needed  for 
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photosynthesis.   Plants  can  regulate  the  amount  of  water 
vapor  released  to  the  air  by  closing  these  stomates. 

The  plant  is  continually  faced  with  the  problem  of 
getting  as  much  C02  as  possible  from  an  atmosphere  that  is 
extremely  dilute  (0.03%  by  volume),  and  retaining  as  much 
water  as  possible  (Salisbury  and  Ross,  1985) .   Water  is 
needed  to  keep  all  cells  turgid  and  is  necessary  for  the 
reduction  of  C02  in  photosynthesis t      Simple  sugars  are 
formed  as  a  result  of  the  photosynthetic  reaction.   From 
these  simple  sugars,  more  complex  constituents  necessary  for 
plant  growth  are  synthesized. 

Many  environmental  factors  influence  the  stomatal 
aperture  which  regulates  transpiration  and  the  intake  of 
C02 .   Stomates  of  most  plants  open  at  sunrise  and  close  at 
night,  allowing  entry  of  C02  needed  for  photosynthesis 
during  the  daytime.   Stomatal  opening  is  fast  in  the  morning 
hours  and  closing  is  gradual  throughout  the  afternoon.   The 
light  intensity  influences  both  the  rate  of  opening  and  the 
final  aperture  size  with  bright  light  causing  a  wider 
aperture.   Water  potential  within  the  leaf  also  has  a  great 
effect  on  stomatal  opening  and  closing.   As  water  stress 
increases,  the  stomates  close  providing  a  protective  effect 
during  drought.   This  effect  can  override  low  C02  levels  and 
bright  light.   Thus,  the  cell  water  potential  (and  stomatal 
opening)  is  ultimately  governed  by  the  potential  of  the  soil 


49 
water  in  contact  with  the  roots,  (Taylor  and  Ashcroft, 
1972)  . 

From  an  agriculturalists  point  of  view,  the  compromise 
between  photosynthesis  and  transpiration  corresponds  to 
achieving  maximum  crop  yield  with  a  minimum  of  irrigation 
water  (Cull  et  al.,  1981;  Sinclair  et  al.,  1984).   The 
object  is  to  provide  enough  water  for  the  plant  to  prevent 
significant  water  stress  and  a  corresponding  reduction  in 
yield.   However,  too  much  water  application  can  waste  this 
important  natural  resource,  leach  applied  fertilizers  out  of 
the  root  zone,  or  possibly  limit  root  growth  due  to 
deficient  aeration.   As  has  been  stated,  the  soil 
environment  can  influence  aeration.   For  example,  deficient 
aeration  for  roots  can  occur  if  a  slowly  permeable  layer  of 
soil  exists  below  the  root  zone  (Stolzy  et  al . ,  1959). 
Saturated  conditions  might  occur  for  long  periods  causing 
roots  to  rot. 
Evapotranspiration  Models 

In  order  to  determine  the  proper  guantity  of  water  to 
apply  to  a  field  to  prevent  plant  water  stress,  both  the 
amount  of  transpiration  by  the  plant  and  evaporation  from 
the  soil  need  to  be  known.   For  this  reason,  much  research 
has  been  done  to  model  both  of  these  processes,  known 
collectively  as  evapotranspiration  or  "ET."   When  plants 
cover  only  a  small  portion  of  the  soil  surface,  most  of  the 
ET  is  due  to  evaporation  of  water  from  the  soil  surface.   As 
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the  crop  grows  and  leaf  area  increases,  the  crop 
transpiration  component  becomes  increasingly  important. 
Many  forms  of  equations  describing  the  evapotrans- 
piration  process  evolved  from  basic  principles  of 
evaporation.   Dalton  is  credited  with  the  "mass  transport" 
formula  that  predicts  evaporation  as  a  function  of  vapor 
pressure 

E0  =  f(u)  (ea  -  e0)  (2-21) 

where 

f(u)  =    a  function  of  windspeed  at  a  stated  height, 

ea  =    the  vapor  pressure  of  the  air  at  the  same 
height,  and 

e0  =    vapor  pressure  at  the  surface. 

This  simple  method  is  not  easily  applied,  however,  because 
of  the  difficulty  in  determining  the  vapor  pressure  at  the 
surface,  e0.   Only  in  cases  where  the  surface  is  wet 
(saturated)  and  e0  can  be  determined  at  a  known  surface 
temperature  has  reasonable  accuracy  on  a  daily  or  hourly 
basis  been  achieved  (Van  Bavel,  1966).   Variations  on  the 
basic  equation  have  been  developed  using  site  specific 
empirical  constants  for  estimating  e0  from  reservoirs  and 
lakes  (Brutsaert  and  Yu,  1968).   Rosenberg  et  al.  (1983) 
pointed  out  difficulties  in  the  method  for  estimating  ET 
from  crop  surfaces.   Estimates  of  water  vapor  fluxes  from 
vegetative  surfaces  become  less  accurate  as  plants 
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experience  water  stress.   To  obtain  the  saturated  E0  from 
measurements  of  surface  temperature,  it  must  be  assumed  that 
air  spaces  within  the  leaf  are  at  the  temperature  of  the 
leaf  and  are  at  a  relative  humidity  of  100%.   As  the  crop 
experiences  water  stress,  the  leaf  temperature  is  elevated. 
Because  saturated  vapor  pressure  increases  with  increasing 
temperature,  e0  evaluated  from  the  elevated  temperature  will 
be  over-estimated. 

Many  of  the  disadvantages  of  the  Daltonian  mass- 
balance  approach  can  be  surmounted  by  combining  functions 
for  sensible  heat  and  water  vapor  with  the  energy  balance 
equation 

Rn+H+G+LE=0  (2-22) 

where 

Rn  =  energy  flux  of  net  incoming  radiation, 

H  =  the  flux  of  sensible  heat  into  the  air, 

G  =  flux  of  heat  into  the  soil,  and 

LE  =  latent  heat  flux,  the  product  of  L,  the  latent 
heat  of  vaporization  of  water  per  unit  mass 
and  E,  the  vapor  flux. 

The  terms  latent  heat  flux  (LE)  and  evapotranspiration  (ET) 
will  be  used  synonymously  to  describe  the  transport  of  water 
vapor  from  the  soil  and  plant  surfaces. 

Figure  2-4  illustrates  the  components  of  the  energy 
balance  (Equation  2-22)  and  turbulent  transfer  of  water 
vapor  away  from  an  evaporating  soil  surface.   The  soil 


52 
presents  a  variable  resistance  to  flow  of  heat  and  water 
vapor  which  greatly  depends  upon  the  degree  of  surface 
wetness.   Introduction  of  a  plant  into  the  system 
illustrated  in  Figure  2-4  would  add  a  different  component  of 
resistance  to  flow  of  heat  and  water  vapor.   Plant  factors 
that  limit  evaporation  are  treated  subsequently. 

Equations  for  sensible  and  latent  heat  transport  are 


H  =  paCDKn  dT    and 
dz 


(2-23) 


LE  =  p^CrKw  de„ 
r     dz 


(2-24) 


where 

pa  =       density  of  air, 

Cp  =       specific  heat  of  air  at  constant 
pressure, 

t        =  psychometric  constant, 

^h'Kw  =    turbulent  exchange  coefficients 
for  sensible  heat  and  water 
vapor,  respectively, 

dT/dz   =    vertical  gradient  of  temperature,  and 

dea/dz  =    vertical  gradient  of  vapor 
pressure. 

Bowen  ratio 

Bowen  (1926)  used  the  above  relationships  and  described 

the  ratio  H/LE  as 


/9  =  H_  =  T  Kn  dT/dz 
LE      Kw  de/dz 


(2-25) 
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This  relationship  can  be  simplified  assuming  equality  of  the 
turbulent  transfer  coefficients  for  heat  and  water  vapor,  as 
well  as  flux  constancy  with  height.   Using  these 
assumptions,  equation  (2-25)  reduces  to 


H    =  r  T?  -  Tl  (2_26) 

LE       e2  -  e-L 


where 


T2  ~  Tl  =  temperature  difference  between 
two  heights,  and 

e2  _  el   =  vapor  pressure  difference  between 
two  heights. 

Under  certain  conditions,  equality  of  the  transfer 
coefficients  cannot  be  assumed.   Verma  et  al.  (1978)  showed 
that  under  conditions  of  regional  sensible  heat  advection, 
LE  was  underestimated  due  to  inequality  of  Kw  and  Kh.   If 
advection  is  great  enough,  the  gradients  of  heat  and  water 
vapor  are  of  opposite  sign  and  the  sensible  heat  gradient  is 
downward  toward  the  surface.   Under  these  conditions,  warm 
dry  air  passing  over  a  rapidly  transpiring,  relatively  cool 
crop  supplies  energy  for  transpiration.   Sensible  heat 
energy  is  consumed  instead  of  generated.   The  authors 
pointed  out,  however,  that  in  cases  where  sensible  heat 
advection  is  not  significant  (as  in  humid  regions) ,  equality 
of  the  transfer  coefficients  can  be  assumed. 

With  the  transfer  coefficients  equal  to  each  other  and 
thus  eliminated,  equation  (2-26)  can  be  combined  with  the 
energy  balance  equation  (2-22)  to  yield 
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B-  "  8  _  .  (2-27) 


1+  T    T-, 


The  above  relationship  is  called  the  "Bowen  Ratio-Energy 
Balance"  method  of  estimating  LE.   Mcllroy  (1971)  developed 
an  instrument  that  combined  sensing  and  computing  functions 
for  continuous  measurement  of  evapotranspiration  using  the 
Bowen  ratio  method.   The  form  of  equation  (2-26)  allowed 
measurement  of  wet  bulb  temperature  differences  which  are 
related  to  e2  -  s1.      Input  sensors  required  for  proper 
operation  of  the  instrument  included  a  net  radiometer  for 
Rn,  ground  heat  flux  plates  for  G,  and  pairs  of  dry  bulb  and 
wet-bulb  resistance  thermometers.   Each  wet  and  dry  bulb 
thermometer  shared  a  common  aspirated  radiation  shield  at 
each  of  two  chosen  heights.   Since  temperature  gradients 
were  very  small  over  small  height  differences,  the  height  of 
the  temperature  sensing  elements  were  alternated  and  the 
instrument  re-zeroed  to  control  for  errors.   The  author 
found  good  agreement  between  LE  determined  with  the 
instrument  and  hourly  measurements  from  weighing  lysimeters. 

Although  Bowen  Ratio  methods  have  given  good 
approximations  of  LE  on  a  short  term  basis,  they  are  labor 
intensive  since  they  require  frequent  attention  to  calib- 
ration that  can  involve  periodic  relocation  of  sensors. 
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Also,  there  are  many  precision  sensors  required  to  read  and 
maintain.   For  these  reasons,  Bowen  Ratio  methods  have  not 
been  widely  used  to  estimate  LE  for  irrigation  scheduling. 
Combination  formulas  for  modeling  evapotranspiration 

Methods  of  modeling  evapotranspiration  have  been 
developed  which  combine  the  energy  balance  and  an  aero- 
dynamic equation.   Various  forms  of  combination  equations 
have  been  used  depending  on  the  available  instrumentation 
for  measuring  parameters.   One  combination  formula  combines 
the  energy  balance  (Equation  2-22)  with  one  form  of  the 
equation  for  sensible  heat  transfer  (Equation  2-23): 

-  LE  =  Rn  +  G  +  paCp  (Ta  -  Ts)  (2-28) 

ra 

where 

ra  =  the  boundary  layer  resistance  to 
sensible  heat  transfer, 

Ta  =  air  temperature,  and 

Ts  =  surface  temperature. 

Montieth  (1963)  introduced  the  resistance  term  ra  by  analogy 
to  Ohm's  law.   The  flow  of  electric  current  is  analogous  to 
the  flux  of  sensible  heat  and  the  "driving  force"  in  this 
case  is  the  temperature  gradient,  (Ta  -  Ts) .   In  fact,  the 
representation  of  H  as  the  right -most  term  of  equation  (2- 
28)  is  similar  to  the  form  of  equation  (2-23).   The  term  ra 
of  equation  (2-28)  can  be  seen  to  equal  dz/Kn  of  equation 
(2-23) .   The  term  dz  can  be  neglected  as  measurements  are 
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made  at  a  single  height  and  ra  represents  aerodynamic 
resistance  in  the  boundary  layer.   Thus,  as  equality  of  the 
transfer  coefficients  Kh  and  Kw  (Equation  2-23)  were  assumed 
for  heat  and  water  vapor,  respectively,  ra  can  be  used  as 
the  aerodynamic  resistance  to  both  flow  of  heat  and  water 
vapor.   To  use  equation  (2-28) ,  one  would  measure  Rn  and  G 
with  a  net  radiometer  and  soil  heat  flux  plates  respect- 
ively, derive  ra  by  wind  and  temperature  profile  measure- 
ments, and  measure  air  and  surface  temperatures  using 
thermocouples  or  other  appropriate  devices.   Heilman  and 
Kanemasu  (1976)  used  aspirated  thermocouples  mounted  on 
masts  for  determination  of  Ta  and  placed  them  at  several 
levels  above  and  within  the  crop  canopy  to  determine  ra. 
Windspeed  measurements  were  also  made  at  several  levels  to 
determine  ra.   Spring-mounted  thermocouples  were  mounted  on 
the  undersides  of  the  leaves  to  measure  crop  surface 
temperature  Ts.   Much  work  has  been  done  to  produce 
estimates  of  ra  from  windspeed  data  (Szeicz  et  al.,  1969; 
Brun  et  al . ,  1972).   Furthermore,   Rosenberg  et  al.  (1983) 
suggested  that  equation  (2-28)  could  be  more  easily  applied 
by  measuring  crop  surface  temperatures  (Ts)  with  infrared 
thermometry. 

Difficulties  encountered  in  measuring  crop  surface 
temperatures  have  precluded  widespread  use  of  the 
combination  form  (Equation  2-28)  for  the  estimation  of  LE. 
For  this  reason,  forms  of  the  combination  equation  have  been 
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derived  to  allow  estimates  of  LE  from  measurements  at  a 
single  height.   The  ability  to  calculate  LE  at  a  single 
height  is  of  considerable  advantage,  since  single-level 
measurements  do  not  need  to  be  as  accurate  as  those  used  to 
establish  gradients.   However,  as  Taylor  and  Ashcroft  (1972) 
pointed  out,  elimination  of  the  second  level  of  measurement 
results  in  estimates  of  evapotranspiration  which  must  be 
"scaled"  by  a  soil-plant  factor  in  order  to  obtain  actual 
crop  evapotranspiration  measurements. 

Penman  (1948)  developed  a  combination  model  which 
allowed  measurements  from  a  single  height.   The  equation  can 
be  more  readily  applied  than  either  the  energy  budget  or 
aerodynamic  equations  from  which  it  was  derived.   The  method 
was  originally  designed  to  estimate  evaporation  from  open 
water  surfaces  and  has  been  modified  various  ways  to  predict 
crop  evapotranspiration.   Various  forms  of  the  Penman  (1963) 
equation  are  among  the  most  widely  used  in  hydrology  today 
(Thorn  and  Oliver,  1977) .   There  are,  however,  some 
assumptions  that  are  made  regarding  its  use  as  originally 
derived.   First,  an  assumption  is  made  that  the  evaporating 
surface  is  saturated.   This  assumption  eliminates  the  need 
to  measure  vapor  pressure  at  the  surface  but  causes  the 
estimate  of  evaporation  to  be  potential  rather  than  actual. 
Potential  evaporation  occurs  when  a  surface  is  wet  and 
imposes  no  restriction  on  the  flow  of  water  vapor.   The  next 
assumption  is  that  the  surface  temperature  is  the  same  as 
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the  air  temperature  at  the  measurement  point.   This 
eliminates  the  need  to  measure  the  surface  temperature. 

Derivation  of  the  Penman  model  makes  use  of  the  Bowen 
ratio  previously  mentioned. 


H_  =  T    T7 
LE      e-> 


(2-26) 


where 

T2  =  Ta    =  temperature  of  the  air  at  a 
certain  height, 

Ti  =  Ts    =  temperature  at  the  soil  surface, 

e2  =  ed    =  prevailing  vapor  pressure  of  the 
air  at  the  same  height  of 
temperature,  Ta,  and 

e1   =  e(Ts)  =  saturated  vapor  pressure  at  the 
soil  surface  temperature,  Ts. 

In  order  to  remove  the  need  to  measure  surface  temperature, 
Penman  introduced  the  relationship 

ea  "  e(Ts)  =  S    (Ta  -  Ts)  (2-29) 

where 

ea  =  saturated  vapor  pressure  at  Ta,  and 

*  =  first  derivative  of  the  function 
ea  as  f(T)  known  as  the  saturated 
vapor  pressure  curve  (Figure  2-5) . 

Rosenberg  et  al .  (1983)  gave  an  equation  for  the  curve  of 
Figure  2-5  as 
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ea  =  0.61078  exp 


17.269T, 


(2-30) 


Ta  is  expressed  in  °C  and  ea  is  expressed  in  kPa.   The  first 
derivative,  S   can  be  calculated  at  a  known  air  temperature 


■5  =  de^  =  2502.9  exp 
dT„ 


17.269T3 


Ta+  237.30 


(2-31) 


Ta«  +  474.60Ta  +  56311 

Combining  equation  (2-29)  with  the  Bowen  ratio,  equation  (2- 
26)  yields 


H_  = 
LE 


1  e*  -  efTs) 
S    ed  -  e(Ts) 


(2-32) 


Ultimately,  a  relationship  is  desired  that  removes  the  need 
to  measure  e(Ts).   Equation  (2-32)  can  be  modified  by 
replacing  ea  -  e(Ts)  by  (ea  -  ed  -  e(Ts)  +  ed)  (Taylor  and 
Ashcroft,  1972) .   When  this  is  done,  equation  (2-32)  becomes 


H_  = 

LE 


1  +  ea  -  ed 

ed  "  e(Ts) 


(2-33) 


A  form  of  equation  for  latent  heat  transport  (Equation  2- 
24)  can  be  written 
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LE  =  p„Cp   (e^  -  e(T«.)) 


(2-34) 


Using  the  assumption  that  Ta  =  Ts  implies  that  ea  =  e(Ts) 
Equation  (2-34)  can  now  be  written  to  describe  an 
"isothermal  evaporation"  (Feddes  et  al.,  1978)  as 


LEa  =  EaCp   (^d  ~  ea) 
t  r. 


(2-35) 


Taking  the  ratio  of  equation  (2-35)  to  equation  (2-34) 
yields 


la  =  ed  ~  ea 

E    ed  -  e(Ts) 


Combining  equations  (2-36)  and  (2-33)  yields 


H_ 

LE 


1  "  la 
E 


(2-36) 


(2-37) 


Substituting  the  remaining  terms  of  the  energy  balance 
(Equation  2-22)  for  H  and  re-arranging  terms  yields 

Rn  +  G  +  LE  =  -T   (LE-  LEa)  .  (2-38) 

6 

Solving  for  LE  yields  a  form  of  the  Penman  combination 

formula 


LE  = 


S    +  T 


(Rn  +  G)  + 


LEa 


S    +    T 


(2-39) 
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Penman's  original  form  of  equation  (2-39)  neglected 
soil  heat  flux  (G)  because  for  daily  estimates  of  LE,  an 
assumption  was  made  that  the  heat  flux  downward  toward  the 
soil  was  cancelled  by  the  upward  flux  at  night.   The  net 
contribution  of  G  was  thus  assumed  to  be  negligible  over  a 
2  4  hour  period. 

The  effects  of  wind  on  ET  depend  on  crop  character- 
istics.  Equations  based  on  theory  have  been  used  to  model 
the  effects  of  wind  on  ET.   As  seen  in  equation  (2-35) ,  LEa 
can  be  written  as  a  function  of  ra,  the  boundary  layer 
resistance  to  sensible  or  latent  heat  transfer,  and  the 
vapor  pressure  deficit  measured  in  the  air  at  a  point  above 
the  surface.   Other  methods  have  described  LEa  as  a  function 
of  windspeed  using  terms  analogous  to  ra.   If  equation  (2- 
35)  is  re-written  as  LEa  =  B  (ed  -  ea) ,  B  was  defined  by 
Van  Bavel  (1966)  as 


B  =  p  E  k2 
P 


In  z 
z0 


(2-40) 


where 


p  =  density  of  air, 

E  =  water-air  molecular  weight  ratio, 

P  =  ambient  pressure, 

k  =  Von-Karman  constant  (0.43), 

z0  =  roughness  parameter, 
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z  =  height  above  soil  surface,  and 
Ua  =  windspeed. 

The  roughness  parameter  z0  is  a  measure  of  the  aerodynamic 
roughness  of  the  surface  over  which  the  wind  speed  profile 
is  measured. 

Equation  (2-40)  described  a  transfer  coefficient  for 
water  vapor  that  applied  to  adiabatic  conditions  only. 
Similarly,   Szeicz  et  al.  (1969)  defined  a  coefficient  l/ra 
for  momentum  transfer  as 


1   =     k2  U 


a 2  (2-41) 


In  z-d 
z0 


where 

d  ■  the  zero  plane  displacement. 

The  zero  plane  displacement  indicates  the  mean  level  at 
which  momentum  is  absorbed  or  the  level  of  bulk  aerodynamic 
drag  on  the  plant  community.   Szeicz  et  al.  (1969)  stated 
that  under  adiabatic  conditions  of  neutral  stability,  the 
transfer  coefficient  (Equation  2-41)  for  momentum  could  be 
used  to  calculate  fluxes  of  heat  and  water  vapor.   When  z0 
is  constant,  l/ra  is  a  linear  function  of  windspeed.   The 
authors  pointed  out,  however,  that  even  though  z0  may  be 
constant  for  surfaces  with  small  or  constant  roughness 
elements,  many  crops  become  aerodynamically  smoother  as 


63 
windspeed  increases.   They  also  stated  that  the  zero  plane 
displacement  may  change  as  crops  are  bent  down  by  the  wind 
though  not  by  an  appreciable  amount.  Brun  et  al.  (1972) 
described  the  diffusion  resistance  ra  (after  Fuchs  et  al., 
1969)  as 

2 


r.  =  0  +  In 


z  +  D_ 
z0 


(2-42) 


i?  vz 


where 


,0  =  diabatic  profile  parameter, 

D  =  d  +  z0,  and 

Vz  =  windspeed  at  height  z. 

Szeicz  et  al.  (1969)  empirically  related  z0  to  crop  height  h 
using  a  regression  of  data  for  many  crops  in  the  windspeed 
range  of  2  -  3  m/sec  as 

lo<3l0    z0  "  logiO  h  "  0-98  (2-43) 

where 

h  =  crop  height  in  centimeters. 
Likewise,  Stanhill  et  al.  (1969)  gave  an  equation  for  zero 
plane  displacement  as 

log10  d  =  0.979  log10  h  -  0.154.       (2-44) 

Fuchs  et  al.,  (1969)  stated  that  the  adiabatic  approximation 
can  be  successful  only  if  H  (sensible  heat  flux  density)  is 
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small  as  with  irrigated  vegetation.   Under  this  assumption, 
0   of  equation  (2-42)  would  be  set  to  zero. 
Plant  and  Soil  Factors  Limiting  Evapotranspiration 

Equation  (2-39)  assumes  a  well  watered  crop  and 
describes  a  "potential"  rather  than  an  "actual"  evapo- 
transpiration.  Doorenbos  and  Pruitt  (1977)  defined 
potential  ET  in  terms  of  a  reference  crop  ET  as  the  "  crop 
evapotranspiration...  from  an  extended  surface  of  8  to  15  cm 
tall  green  grass  cover  of  uniform  height,  actively  growing, 
completely  shading  the  ground  and  not  short  of  water." 
Modification  of  equation  (2-39)  to  account  for  plant  and 
soil  factors  that  limit  evapotranspiration  have  been 
approached  in  a  number  of  ways.   Some  of  the  more  instru- 
mentation intensive  methods  been  shown  to  yield  good 
estimates  on  a  very  short  term  basis  (hourly) .   These 
methods  have  been  limited  to  research  applications,  however, 
because  of  the  instrumentation  required  to  measure  needed 
variables  whose  values  are  not  readily  available.   Other 
methods  apply  an  empirically  derived  crop  coefficient  to 
equation  (2-39)  to  make  it  a  more  practical  tool  for 
irrigation  scheduling.   This  coefficient  is  used  in  order  to 
"scale"  the  Penman  form  to  reflect  actual  evapotranspiration 
and  describes  the  combined  effects  of  soil  and  crop 
conditions  on  actual  ET.   Since  it  is  empirically  based, 
however,  the  crop  coefficient  can  be  used  only  for  the  crop 
and  conditions  under  which  it  was  derived.   The  following 
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discussion  addresses  both  physically  based  and  more 
empirical  approaches  and  detail  the  aforementioned  diff- 
iculties associated  with  attempts  to  modify  the  Penman 
equation  for  the  plant  limiting  case. 
Resistance  methods 

Previous  discussions  focused  on  the  plant's  use  of 
stomatal  control  to  regulate  transpiration.   Light  intensity 
and  the  plant  water  potential  regulate  both  the  rate  and 
final  degree  of  stomatal  opening.   The  degree  of  stomatal 
opening  has  been  described  in  terms  of  the  plant's 
resistance  to  transport  of  water  vapor  from  the  stomates, 
rs- 

Monteith  (1965)  introduced  an  additional  resistance 
term,  rc  into  the  Penman  equation  (2-39)  which  is  a  function 
of  rs.   A  form  of  the  modified  equation  is 

I*  -   -  j    (Rn  +  G)  +  paCr  (e(Tc)  -  e^)/ra  .    (2-45) 
(S   +  r)  [(ra  +  rc)/ra] 

The  term  rc  denotes  the  surface  resistance  of  the  entire 
crop  canopy  or  the  mean  resistance  of  the  various  layers  of 
leaves  acting  in  parallel  (Jagtap  and  Jones,  1986) . 

Brown  and  Rosenberg  (1973)  used  a  slightly  modified 
form  of  equation  (2-45)  and  calculated  rc  by  summing 
stomatal  resistances  for  both  sides  of  each  leaf  layer  as 
parallel  resistors.   They  also  calculated  rc  by  measuring 
other  variables  in  the  combination  equation  including  crop 
surface  temperatures.   The  authors  found  good  correlation 
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between  rc  calculated  by  both  methods  indicating  that  rc  is, 
indeed,  a  physiological  factor.   Values  of  rc  were  derived 
for  sugar  beets  under  well  watered  conditions  but  were  only 
about  1/2  to  1/3  as  large  as  those  reported  by  Monteith 
(1965) .  The  authors  attributed  the  discrepancy  to  the 
possibility  that  Monteith' s  crops  may  have  been  water 
stressed  or  composed  of  older  leaves  having  greater  stomatal 
resistances. 

Attempts  to  simplify  and  increase  the  usefulness  of  the 
Brown  and  Rosenberg  (1973)  resistance  model  were  made  by 
Verma  and  Rosenberg  (1977) .   They  developed  empirical 
functions  that  describe  canopy  resistance  as  a  function  of 
irradiance.   This  method  still  disregarded  the  fact  that  rc 
is  also  heavily  dependent  on  plant  water  stress  since, 
again,  the  results  represented  conditions  of  an  adequate 
water  supply.   The  authors  did  indicate  that  the  dependence 
of  rc  on  irradiance  must  be  modulated  for  decreasing  soil 
moisture  content  before  the  model  can  be  used  widely. 

Others  have  used  the  Montieth  (1965)  approach  in  models 
that  separate  soil  evaporation  and  transpiration  components 
for  crops  with  incomplete  cover  (Black  et  al.,  1970;  Brun  et 
al.,  1972;  Jagtap  and  Jones,  1986).   Later  discussion  will 
focus  on  the  merits  of  modeling  evaporation  and  transpir- 
ation separately. 
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Crop  coefficient  curves 

Difficulty  in  determining  the  canopy  resistance,  rc, 
has  precluded  widespread  use  of  the  Montieth  form  of  the 
combination  equation  for  determining  irrigation  water 
requirements.   As  has  been  indicated,  instrumentation 
intensive  research  investigations  can  yield  good  estimations 
of  LE  on  a  short  term  basis.   Rc  is  usually  calculated  from 
individual  leaf  resistances  using  instruments  called 
porometers  that  measure  stomatal  diffusion  (Black  et  al., 
1970;  Brun  et  al.,  1972;  Jagtap  and  Jones,  1986).  Use  of 
this  instrumentation  is  not  practical  in  the  field,  however, 
and  resistance  modifications  have  not  yet  been  incorporated 
into  practical  procedures  for  determining  irrigation 
requirements  (Wright,  1985) .   As  a  result,  practical  tools 
have  been  developed  to  modify  the  basic  Penman  ET  equation 
using  crop  coefficients. 

As  has  been  stated,  crop  coefficient  curves  have  been 
developed  which  describe  the  combined  effects  of  soil  and 
crop  conditions  on  actual  ET.   Actual  crop  ET  is  estimated 
by  multiplying  potential  ET  (Equation  2-39)  by  a  crop 
coefficient,  kc,  or 

ET  =  kc  ETp  .  (2-46) 

Jensen  et  al.  (1971)  conceived  a  computer  based 
irrigation  management  program  using  a  form  of  the  Penman 
(1963)  ET  equation  for  potential  evapotranspiration. 
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Jensen's  computer  program  kept  a  water  balance  on  individual 
fields,  taking  into  account  climate,  crop,  and  soil  factors 
that  influence  soil  water  depletion.   The  program  used  an 
empirically  derived  coefficient  to  adjust  the  equation  to 
reflect  actual  evapotranspiration  by  the  crop.   The 
program's  crop  coefficient  reflected  the  combined  effects  of 
crop  stage,  available  soil  water,  and  the  effects  of  a  newly 
wetted  soil  surface.   The  authors  described  a  multi-termed 
crop  coefficient  as 

kc  =  kco  ka  +  ks  (2-47) 


where 


kco  =  the  mean  crop  coefficient  based  on  experimental 
data  where  soil  water  is  not  limiting. 


water  becomes  limiting,  and 

the  increase  in  the  coefficient  at  a  given 
stage  of  growth  when  the  soil  surface  is  wetted 
by  irrigation  or  rainfall. 


Stegman  et  al.  (1977)  derived  crop  curves  for  several 
crops  in  North  Dakota  and  observed  that  periodic  field 
visits  were  needed  to  verify  that  the  crop's  phenological 
development  was  compatible  with  crop  curve  position  relative 
to  days  post-emergence.   Jones  et  al.  (1984)  presented 
coefficients  for  many  crops  derived  at  specific  sites. 
Coefficients  presented  were  derived  under  well  watered 
conditions  and  depended  on  rainfall  and  irrigation  patterns 
and  on  the  method  used  for  estimating  potential 
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evapotranspiration.   Values  of  crop  coefficients  varied  with 
days  post-emergence. 
Models  that  separate  evaporation  and  transpiration 

Where  many  crops  have  incomplete  cover  during  most  or 
all  of  the  season,  the  soil  evaporation  component  of  ET  is 
often  quite  large.   The  aforementioned  methods  of  applying  a 
crop  coefficient  to  the  potential  ET  equation  were  designed 
to  take  soil  evaporation  into  account  since  they  applied 
over  the  entire  season.   However,  many  coefficients  were 
derived  only  under  well  watered  conditions. 

Jensen  et  al.  (1971)  used  a  coefficient  that  took  into 
account  changes  in  soil  evaporation  as  a  function  of 
available  soil  moisture  and  the  ET  increase  due  to  a  newly 
wetted  soil  surface.   This  method  did  not  account  for 
changes  in  the  proportion  of  sunlit  or  shaded  soil  as  the 
season  progressed,  however.   This  could  yield  inaccuracies 
in  different  parts  of  the  season.   Ritchie  (1985)  observed 
that  for  developing  crops,  the  soil  evaporation  component 
becomes  limited  when  the  water  content  of  the  soil  near  the 
surface  drops  below  a  threshold  value.   Transpiration, 
however,  continues  at  an  energy  limited  rate  until  the  water 
deficit  in  the  root  zone  reaches  some  critical  level. 

Ritchie  (1972)  developed  a  model  that  treated 
evaporation  and  transpiration  from  a  row  crop  with 
incomplete  cover  as  separate  processes.   Evaporation  from  a 
drying  soil  was  calculated  in  two  stages:  (l)  The  "constant 
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rate"  stage  in  which  evaporation  is  only  limited  by  the 
supply  of  energy  to  the  surface  and  (2)  the  "falling  rate" 
stage  in  which  water  movement  to  evaporating  sites  near  the 
surface  is  controlled  by  the  hydraulic  properties  of  the 
soil.   Ritchie  used  a  relationship  that  describes  soil 
evaporation  as  the  product  of  an  empirically  derived  factor 
(a  function  of  the  hydraulic  properties  of  the  soil)  and  the 
square  root  of  time.   A  form  of  the  Penman  combination 
equation  with  an  empirical  wind  function  (Penman,  1963)  was 
used  to  define  the  approximate  potential  evapotranspiration 
above  the  canopy.   The  author's  modification  of  the  equation 
included  a  locally  calibrated  function  for  net  radiation 
above  the  canopy  (Rno) .   As  with  the  original  Penman 
equation,  soil  heat  flux  was  also  neglected.   Potential 
evaporation  below  the  canopy  at  a  freely  evaporating  soil 
surface  was  predicted  using  a  modified  form  of  the  same 
Penman  equation  neglecting  the  vapor  pressure  deficit  and 
wind  function  terms.   Net  radiation  at  the  soil  surface 
(Rns)  was  determined  as  an  empirically  determined  fraction 
of  Rno  depending  on  leaf  area  index  (LAI) .   The  author 
stated  that  neglecting  the  vapor  pressure  deficit  and  wind 
function  terms  could  yield  inaccuracies  when  the  canopy  is 
small.   When  cover  is  sparse,  however,  conditions  favoring 
free  evaporation  from  the  soil  do  not  exist  for  long  periods 
of  time.   Evaporation  from  the  plant  surface  was  also 
predicted  by  an  empirical  function  relating  evaporation  from 
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the  plant  surface  to  potential  evapotranspiration  by  the 
LAI.  The  model  applied  only  where  available  soil  water  in 
the  root  zone  was  not  limiting.  The  model  was  tested  on  a 
weighing  lysimeter  with  a  grain  sorghum  crop  of  incomplete 
cover.  Differences  between  measured  and  calculated  values 
of  daily  ET  were  less  than  1  mm  per  day  for  most  days. 

Tanner  and  Jury  (1976)  proposed  a  similar  approach  to 
that  of  Ritchie  (1972)  where  an  alternate  method  of 
calculating  soil  evaporation  was  compared  to  the  Ritchie 
method.   This  was  done  to  evaluate  possible  improvements  in 
soil  evaporation  equations.   The  authors  found  the  two  soil 
evaporation  models  tested  to  be  close  in  agreement.   Like 
the  Ritchie  (1972)  model,  the  Tanner  and  Jury  (1976) 
evapotranspiration  model  was  developed  for  a  well  watered 
crop  and  no  attempt  was  made  to  determine  the  decrease  in 
transpiration  as  water  deficits  developed. 

Al-Khahaf  et  al.  (1978)  defined  empirical  relationships 
which  proportioned  evaporation  and  transpiration  by  the  LAI. 
The  authors  also  defined  a  dynamic  crop  coefficient  from 
empirical  relationships  of  ET/ETp  for  irrigated  cotton  as  a 
function  of  days  post  emergence.   The  authors  presented  two 
years  of  data  for  a  water  limiting  case  where  a  function  was 
derived  relating  the  ratio  of  transpiration  over  potential 
transpiration  (T/Tp)  as  a  function  of  the  fraction  of 
available  water  left  in  the  soil.   Available  water  was 
defined  as  the  difference  in  volumetric  water  content 
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between  -10  and  -1500  kPa  soil  water  tension.   The  authors 
found  that  the  ratio  of  actual  to  potential  transpiration 
was  close  to  unity  until  about  60%  of  the  available  water 
had  been  depleted  from  the  soil.   After  this,  the  ratio  T/TD 
began  to  decrease  rapidly  and  could  be  described  by  a 
negative  exponential. 

Tanner  and  Jury  (1976)  stated  that  the  soil  evaporation 
component  used  in  their  and  Ritchie's  models  can  serve  only 
as  an  approximation  to  the  behavior  of  a  field  soil.   Thus, 
the  soil  evaporation  component  is  not  desirable  from  a 
theoretical  point  of  view.   This  limitation  can  be  extremely 
critical  if  simulating  water  use  in  the  early  stages  of  a 
crop's  development.   Evaporation  from  soil  is  most  dominant 
in  these  early  stages  and  modeling  it  correctly  is  critical, 
especially  if  short  term  estimates  are  desired. 

Realizing  limitations  in  previous  soil  evaporation 
models.  Butts  (1988)  developed  a  mechanistic  model  that 
coupled  energy  and  mass  transfer  processes  to  simulate  the 
evaporation  of  water  from  the  soil.   Since  temperature 
gradients  play  a  significant  role  in  the  movement  of  water 
vapor  in  the  soil,  the  model  also  included  functions  to 
simulate  their  effect  on  water  profiles.   The  model 
simulated  diurnal  variation  of  evaporation,  soil  water  and 
temperature  profiles  in  response  to  conditions  at  the  soil 
surface  and  could  provide  resolution  on  a  short  term  basis 
(hourly) . 
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If  plant  transpiration  could  be  simulated  reliably  on  a 
short  term  basis  and  coupled  to  a  model  like  one  described 
by  Butts  (1988),  significant  gains  could  be  realized  in  the 
effort  to  accurately  estimate  short  term  evapotranspiration 
over  the  entire  life  span  of  the  crop.   As  has  been  noted 
previously,  however,  the  only  models  to  date  that  have  the 
potential  of  allowing  accurate  estimates  of  transpiration 
require  measurement  of  stomatal  resistance  (Montieth,  1965 
and,  more  recently,  Jagtap  and  Jones,  1986).   Thus,  semi- 
empirical  models  such  as  those  of  Ritchie  (1972)  have  found 
wider  use  in  irrigation  scheduling  programs  and  crop  growth 
simulations  that  require  ET  estimates.   The  Ritchie  (1972) 
model  requires  only  daily  solar  radiation,  and  maximum  and 
minimum  air  temperatures  as  weather  inputs. 

Summary 
Basic  soil  water  relationships  and  methods  of  soil 
water  measurement  were  detailed.   Special  problems  involving 
water  management  in  a  heterogeneous  soil  environment  and 
limitations  of  sensor-based  approaches  to  irrigation 
scheduling  were  also  discussed.   Methods  and  limitations  of 
evapotranspiration  models  were  detailed.   The  Penman 
combination  formula,  from  which  most  presently  used 
evapotranspiration  models  originated,  was  derived  from  basic 
principles  of  mass  and  energy  transfer. 
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Figure  2-1.  Soil  water  retention  curves. 
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Figure  2-2.  Schematic  representation  of  continuity 
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Figure  2-4.    Energy  and  mass  balance  at  soil   surface 
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Figure  2-5.  Saturation  vapor  pressure  of  water  as  a 
function  of  temperature. 


CHAPTER  III 

KNOWLEDGE-BASED  SYSTEM  FOR  IRRIGATION 

MANAGEMENT — DEVELOPMENT  CRITERIA 

FOR  DESIGN 

Introduction 
As  has  been  indicated,  there  are  difficulties 
associated  with  scaling  potential  ET  models  to  reflect 
actual  evapotranspiration.   Models  that  require  measurement 
of  stomatal  resistance,  although  having  the  potential  for 
great  accuracy,  require  that  frequent  manual  measurements  be 
made  throughout  the  day.   For  this  reason,  use  of  this 
method  is  not  practical  for  on-farm  use  in  irrigation 
scheduling. 

Crop  coefficient  equations  were  meant  to  allow 
practical  use  of  ET  models  but  are  site  and  crop  specific. 
These  models  must  also  be  calibrated  for  the  particular 
field.   Jagtap  and  Jones  (1989)  observed  that  seasonal 
errors  could  be  as  high  as  190  mm  water  when  crop  coeff- 
icients developed  under  one  set  of  conditions  were  used 
under  different  climate  and  management  conditions. 

Models  that  separate  the  soil  evaporation  and  crop 
transpiration  components  allow  a  better  representation  of 
water  use  in  the  early  stages  of  a  crop's  development. 
These  models  have  acknowledged  limitations  based  on 
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assumptions  made  in  their  development,  and  may  be  inaccurate 
under  certain  stages  of  crop  growth  and  weather  conditions. 
In  summary,  evapotranspiration  models  can  provide  good 
water  use  estimates  on  a  short  term  basis,  but  their  accu- 
racy depends  on  the  number  of  variables  that  can  be  measured 
and  the  method  used  to  scale  the  model  to  predict  actual 
water  use  by  the  crop.   Potential  ET  can  be  predicted  quite 
accurately  if  a  weather  station  is  installed  on  the  farm 
manager's  field.   However,  all  practical  methods  of  scaling 
potential  ET  models  to  reflect  actual  evapotranspiration 
involve  simplifying  assumptions.   Since  these  assumptions 
have  been  shown  to  cause  errors  under  certain  weather  or 
growing  conditions,  methods  have  been  adopted  that  use  soil 
water  sensors  as  a  substitute  for  or  with  model-based 
approaches . 

Jensen  et  al.  (1971)  used  sensor-based  feedback  to  an 
on-farm  empirically  based  water  balance  simulation.   Field 
personnel  would  make  periodic  visits  to  check  soil  water 
status  with  sensors  to  confirm  adequacies  of  previous 
irrigations.   This  verified  that  predicted  soil  moisture 
status  was  consistent  with  observed  measurements. 

Approaches  like  the  above  are  difficult  to  implement  on 
a  large  scale,  however,  because  of  the  time,  labor,  and 
interpretive  skill  involved  in  properly  interpreting  sensor 
readings.   If  model  estimates  were  needed  on  an  hourly  basis 
(as  might  be  needed  in  drip  irrigation  of  vegetable  crops) , 
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automatic  sensor  readings  would  be  required.   These  sensor 
readings  could  then  be  interpreted  at  a  central  computer. 

Soil  water  sensors  themselves  have  limitations,  also. 
Sensors  that  require  little  maintenance  and  provide  good 
resolution  in  the  desired  range  of  water  potentials  are  most 
desirable  for  practical  use.   However,  tensiometers,  heat 
pulse,  and  resistance  type  sensors  have  response  time  lags 
associated  with  them.   The  time  lag  is  a  function  of  the 
potential  gradient,  the  porosity  of  the  matrix  material  in 
contact  with  the  soil,  and  the  mass  flow  caused  by  the 
potential  gradient.   Even  if  time  lags  are  quantified  and 
accounted  for,  most  sensors  in  use  today  cannot  provide 
enough  resolution  in  time  steps  much  less  than  one  day. 

To  properly  delineate  water  status  in  specific  soil 
zones,  infiltration,  water  re-distribution,  and  root 
functions  are  needed  to  augment  an  ET  model.   If  this 
composite  model  is  used  as  the  primary  predictor  of  when  to 
irrigate  and  how  much  water  to  apply,  visits  by  field 
personnel  could  be  minimized  as  more  knowledge  is  gained 
from  sensor  responses  in  a  given  field.   An  experienced 
field  person  could  also  make  inferences  about  adequacies  of 
previous  irrigations  by  the  observed  sensor  responses  to 
wetting.   Also,  if  sensors  are  placed  at  many  depths,   their 
readings  relative  to  each  other  could  provide  information 
about  where  in  the  soil  water  is  being  used.   Thus,  a 
logical  extension  of  an  approach  like  that  used  by  Jensen  et 
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al.  (1971)  would  be  to  observe  sensor  responses  to  drying, 
infer  the  location  of  water  use  in  the  root  zone,  and  apply 
this  feedback  to  correct  the  water  balance  and  root  model. 
If  the  irrigator  knows  how  deep  the  crop  is  rooted,  he  can 
replenish  the  entire  root  zone  or  a  fraction  of  that  zone 
depending  on  his  management  objectives. 

In  summary,  model-  or  sensor-based  approaches  used  by 
themselves  have  limitations  when  applied  to  practical 
irrigation  scheduling  on  the  farm.   A  system  is  needed  that 
couples  the  most  useful  characteristics  of  sensor-  and 
model-based  approaches  and  removes  the  labor  intensive 
aspect  of  interpreting  sensor  readings. 

Knowledqe-Basgri  System — Development  Criteria 
With  the  aforementioned  model  and  sensor  limitations  in 
mind,  it  is  instructive  to  summarize  the  problem  with  a 
pictorial  diagram  (Figure  3-1) .   For  this  discussion,  an 
assumption  is  made  that  the  sensors  illustrated  in  Figure  3- 
1  are  properly  placed  to  represent  conditions  in  their 
respective  zones.   The  terms  of  the  energy  balance 
previously  defined  with  the  driving  potentials  ed  and  Ta  for 
latent  and  sensible  heat  transfer  are  represented.   These 
are  terms  required  to  model  evapotranspiration.   The  water 
content,  eit    in  each  layer  is  influenced  by  evapo- 
transpiration, flow  to  or  from  an  adjacent  soil  layer,  and 
the  sink  term,  root  uptake.   An  appropriate  relationship 
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can  be  made  relating  root  uptake  to  root  length  density 
(RLD,  which  also  changes  with  time) . 

The  object  of  irrigation  is  to  apply  enough  water  into 
a  specified  zone  of  water  regulation  (which  changes  with 
time)  to  bring  that  zone  to  a  desired  water  content,  usually 
field  capacity  or  the  drained  upper  limit  of  water  content. 
A  soil  water  sensor  (S^)  in  each  layer  can  indicate,  after  a 
specified  period,  if  applied  water  reached  the  zone  that  it 
represents.   If  the  initial  condition  9^,  corresponding 
water  potential  0,  and  hydraulic  conductivity  K  in  each  zone 
are  known  (or  assumed) ,  the  change  in  6  caused  by  irrigation 
(I),  rainfall  (R) ,  and  soil  water  re-distribution  as  a 
function  of  space  and  time  (f(z,t))  can  be  modeled  for  each 
layer.   An  amount  of  root  water  uptake,  weighted  by  the  RLD 
and  driven  by  ET  over  the  period,  will  reduce  e  more  rapidly 
and  cause  field  capacity  to  be  reached  at  a  shallower  depth 
than  if  no  sink  term  were  present.   If  an  assumption  is  made 
that  no  water  table  is  present  nearby  and  ET,  drainage  rate 
from  a  soil  layer,  and  SB   =  f(RLDi)  are  modeled  properly, 
sensors  responding  should  indicate  the  same  depth  of  water 
penetration  as  the  model.   Likewise,  modeled  soil  water 
contents  e^  for  each  layer  should  equal  measured  values  as 
the  soil  dries.   Soil  water  content  9  can  be  measured 
directly  by  many  methods  described  previously  or  estimated 
using  soil  water  sensors  that  measure  water  potentials. 
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Before  commencing  irrigation,  a  trigger  level  of  soil 
water  potential  weighted  by  simulated  RLD  could  be  specified 
according  to  the  crop  and  its  stage  of  development.   A 
function  that  determines  this  trigger  level  as  a  function  of 
time  is  determined  for  the  crop  as  in  Taylor  and  Ashcroft 
(1972).   Uptake  predicted  by  the  model  reduces  8  to  a 
corresponding  value  of  trigger  potential,  0  (by  the 
characteristic  curve) .   Meanwhile,  there  are  also  readings 
from  soil  moisture  sensors,  S^.   If  these  readings  are 
extrapolated  forward  to  compensate  for  their  inherent 
response  time  lags,  inferences  can  be  made  about  the 
correctness  of  the  model's  predictions  and  appropriate 
corrections  can  be  made.   Strong  inferences  can  also  be  made 
about  the  root  distribution  component  of  the  model  based  on 
sensor  responses  to  root  extraction. 

Literature  Review 
Crop  Growth  Simulation  Models 

In  addition  to  predicting  crop  growth  and  yield  under 
simulated  and  actual  conditions,  crop  growth  simulation 
models  maintain  a  water  balance  in  specific  rooting  zones. 
These  simulation  models  use  one  of  the  evapotranspiration 
models  discussed  in  Chapter  II.   All  models  to  be  discussed 
have  rooting,  drainage,  and  soil  water  re-distribution 
functions  which  can  be  used  to  model  water  uptake  in 
specific  soil  zones.   A  model  chosen  for  this  study  must 
have  all  these  components  because  predicted  water  use  in 
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specific  zones  to  be  compared  to  sensor-based  represen- 
tations of  water  use.   Characteristics  of  several  crop 
growth  models  as  they  are  relevant  to  the  aforementioned 
system  development  criteria  are  outlined. 

Meyer  et  al .  (1979)  developed  a  simulator  of  soybean 
growth  and  yield  called  SOYMOD/OARDC.   This  model  used  a 
mechanistic  approach  to  model  the  growth  processes.   A 
complete  water  balance  and  rooting  function  were 
incorporated  into  the  model.   The  basic  Penman  equation 
modified  by  Montieth  (1965)  to  include  aerodynamic  and 
canopy  resistance  terms  was  used  to  model  the  ET  process. 
The  aerodynamic  resistance  (ra)  was  an  empirical  function  of 
wind  velocity  and  canopy  resistance  (rc)  was  computed  as  a 
function  of  the  available  light  and  leaf  water  potential. 
Although  actual  stomatal  resistances  could  be  measured  in 
the  field  and  entered  into  the  model,  the  authors  chose  an 
empirical  function  described  by  Brady  et  al.  (1977)  that 
related  leaf  water  potential  to  soil  water  potential.   Soil 
water  potential  could  be  obtained  from  the  soil  charac- 
teristic curve  and  predicted  soil  water  content  in  the  root 
zone.   Thus,  if  soil  water  potential  and  photosynthetically 
active  radiation  (PAR)  were  known,  canopy  resistance  could 
be  calculated.   Using  this  method  to  calculate  canopy 
resistance  removed  the  need  for  frequent  measurements  of 
stomatal  resistance.   The  rooting  zone  was  assumed  to  be  a 
single  region  shaped  like  an  inverted  wedge  that  migrated 
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downward.   Thus,  the  soil  zone  was  not  compartmentalized  and 
detailed  studies  of  water  use  in  soil  layers  were  not 
possible. 

Baker  et  al.  (1983)  developed  GOSSYM,  a  simulator  of 
cotton  crop  growth  and  yield  which  included  a  detailed  two- 
dimensional  model  of  root  growth  and  distribution.   The  soil 
was  divided  into  cells  into  which  roots  could  grow. 
Potential  root  growth  in  a  cell  was  a  function  of  day 
length,  soil  layer  temperature,  and  soil  water  potential. 
The  model  assumed  exponential  growth  based  on  the  mass  of 
roots  present  in  the  age  category  capable  of  growth.   Actual 
root  growth  occurring  for  a  given  cell  was  determined  by  the 
amount  of  carbohydrate  partitioned  to  the  roots  by  the  main 
growth  routine  and  the  potential  growth  previously 
calculated.   Growth  of  roots  could  proceed  in  four 
directions  (left,  right,  below,  or  within  the  cell) .   Growth 
within  the  present  cell  or  to  the  three  adjacent  cells  was 
based  on  relative  water  potentials  of  the  four  cells. 
Heavier  weighting  was  given  to  downward  growth. 

GOSSYM  adapted  the  ET  method  developed  by  Ritchie 
(1972)  to  provide  an  empirical  estimate  of  water  removed 
from  the  profile  each  day.   Potential  evapotranspiration  was 
calculated  using  the  Penman  (1963)  equation  with  an 
empirical  wind  function.   Soil  evaporation  took  place  in  an 
energy  limited  or  soil  limited  stage  that  depended  on  soil 
dryness  (Ritchie,  1972).   Plant  transpiration  was  the  sum  of 
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water  uptake  from  all  soil  cells  that  contained  roots. 
Uptake  of  water  from  each  cell  was  proportional  to  the 
product  of  root  weight  capable  of  uptake  and  the  hydraulic 
conductivity  of  the  cell. 

Hoogenboom  and  Huck  (1986)  described  a  crop  growth 
model  called  ROOTSIMU  4 . 0  that  could  simulate  root  and  shoot 
growth  of  any  type  of  plant.   The  model  contained  both 
carbon  and  water  balance  algorithms  but  did  not  partition 
dry  matter  to  the  reproductive  structures  of  the  plant.   The 
model's  primary  function  was  to  simulate  the  effects  of 
water  stress  on  plant  growth.   The  model  assumed  that  the 
supply  of  nutrients  would  be  optimal  and  that  growth  would 
not  be  inhibited  by  insects,  diseases,  or  weeds.   Root 
growth  was  a  function  of  the  soil  water  potential  in  the 
soil  layer.   The  roots  grew  more  rapidly  in  wetter  parts  of 
the  soil  profile  than  in  dryer  parts  of  the  soil  profile,  so 
younger  roots  with  higher  tissue  conductivity  formed  in  wet 
soil,  while  older,  non-functioning  roots  would  die  in  dry 
soil.   A  partitioning  function  allowed  more  dry  matter  to  be 
partitioned  to  the  roots  as  the  crop  underwent  water  stress. 
The  model  did  not  account  for  soil  environmental  constraints 
such  as  poor  aeration,  chemical  toxicity,  salinity,  or 
temperature  extremes. 

A  method  of  determining  ET  for  ROOTSIMU  was  discussed 
by  Hoogenboom  and  Huck  (1986) .   When  weather  data  were 
needed,  ROOTSIMU  4.0  included  sections  to  interpolate 
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between  discrete  points  (recorded  at  daily  intervals) 
obtained  from  standard  weather  observations.   These  program 
sections  were  used  if  the  only  long-term  weather  data 
available  were  those  collected  by  conventional  meteor- 
ological observation  stations. 

Huck  and  Hillel  (1983)  discussed  the  ET  calculations 
included  in  ROOTSIMU.   Instantaneous  potential  ET  rate  was 
interpolated  from  daily  total  pan  evaporation  measurements 
and  proportioned  according  to  instantaneous  radiation. 
Actual  evapotranspiration  was  partitioned  between 
transpiration  and  evaporation  from  the  exposed  soil  surface 
by  the  leaf  area  index  (LAI).   Soil  evaporation  equalled 
potential  ET  for  a  wet  soil  (proportioned  by  the  LAI)  until 
the  top  soil  layer  attained  a  constant  state  of  dryness. 
After  that  point  was  reached,  flow  across  the  lower  boundary 
of  the  top  soil  layer  controlled  evaporation.   Actual 
transpiration  was  also  a  fraction  of  potential  ET 
proportioned  by  the  LAI.   A  factor  was  also  included  to 
modulate  the  equation  for  stomatal  opening.   The  authors 
pointed  out  that  stomatal  response  to  water  stress  can  vary 
among  crops.   The  authors  present  typical  curves  for 
"sensitive"  plants  (such  as  corn  or  soybeans)  and  "tolerant" 
plants  (such  as  cotton  or  sorghum).   ROOTSIMU  4.0  used 
Darcian  flow  equations  to  compute  unsaturated  water  flow 
between  soil  layers,  and  infiltration  was  based  on  the 
assumptions  for  plug  flow  made  by  Green  and  Ampt  (1911) . 
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All  water  was  allowed  to  drain  from  the  bottom  layer  to 
prevent  accumulation  in  the  water  profile. 

In  a  rhizotron  study  of  soybeans  (Hoogenboom  et  al., 
1988),  root  growth  and  water  uptake  were  compared  to 
simulated  values  using  ROOTSIMU  4.0.   No  differences  were 
indicated  between  simulated  root  systems  of  non-irrigated 
and  irrigated  treatments  early  in  the  season.   The  model 
showed,  however,  that  during  a  drought  period  later  in  the 
season,  total  root  length  was  greater  for  non-irrigated 
plants  than  irrigated  plants.   The  experimental  data  showed 
more  of  a  difference  in  total  root  length  between  irrigated 
and  non-irrigated  treatments  than  the  simulation  did.   The 
authors  surmised  that  the  reason  for  the  discrepancy  may 
have  been  that  the  model  used  a  constant  factor  to  convert 
root  dry  matter  to  root  length.   The  model  did  not  consider 
changes  in  size  of  the  taproot  and  may  have  over-estimated 
total  root  length  for  the  irrigated  treatment.   Soil  water 
contents  in  all  soil  zones  were  also  over-predicted  by  the 
model  for  both  irrigated  and  non- irrigated  treatments. 

Jones  et  al .  (1986)  described  a  simulation  model  for 
growth  and  development  of  corn  called  CERES-MAIZE.   Another 
simulation  model  for  growth  and  development  of  wheat  (CERES- 
WHEAT)  was  described  by  Ritchie  (1985).   The  CERES  models 
implemented  root  growth  and  water  balance  components  that 
allowed  simulation  of  soil  water  content  in  each  of  several 
soil  layers.   Daily  growth  of  the  root  system  (g/plant)  was 
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a  function  of  the  amount  of  carbohydrate  partitioned  to  the 
roots.   Like  ROOTSIMU  4.0  (Hoogenboom  et  al.,  1986),  the 
models  used  a  constant  factor  to  convert  root  dry  matter  to 
root  length.   Rooting  depth  (incremented  daily)  was  a 
function  of  air  temperature  and  soil  profile  water  content. 
Root  growth  in  a  soil  layer  was  a  function  of  a  soil  water 
deficit  factor  in  that  layer  and  a  root  growth  weighting 
function.   This  weighting  function  was  given  by 

WR(I)  =  EXP  (-4.0  *  Z(I)/200)  (3-1) 

where 

Z(I)  =  depth  to  the  center  of  soil  layer  I  (cm). 

Equation  (3-1)  is  the  simplest  form  of  the  root  weighting 
function.   Jones  et  al.  (1986)  pointed  out  that  WR(I)  should 
be  reduced  to  reflect  physical  or  chemical  constraints  on 
root  growth  in  certain  soil  layers,   in  the  CERES  computer 
models,   a  WR(I)  value  was  specified  for  each  layer  in  the 
soil  characteristic  input  files. 

The  evapotranspiration  model  used  in  the  CERES 
simulations  was  adapted  from  Ritchie  (1972).   Potential  ET 
was  calculated  from  temperature  and  radiation  using  the 
Priestley  and  Taylor  (1972)  equilibrium  evapotranspiration 
(EEQ) .   The  Priestley-Taylor  method  is  a  simplified  form  of 
the  Penman  equation  which  replaces  Penman's  wind/vapor 
pressure  deficit  term  with  an  empirically  derived  constant. 
For  CERES-Wheat,  Ritchie  (1985)  used  a  multiplier  of  l.l  to 
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account  for  the  effects  of  unsaturated  air  and  increased  the 
multiplier  to  allow  for  advection  when  the  maximum 
temperature  was  greater  than  24°C.   In  Jones  et  al.  (1986), 
the  multiplier  was  increased  after  the  maximum  temperature 
was  greater  than  35°C  for  CERES-MAIZE.   In  both  CERES 
models,  actual  soil  evaporation  was  modeled  as  a  two  stage 
process  (as  it  was  in  the  GOSSYM  Cotton  model  of  Baker  et 
al.  (1983)).   An  amount  of  water  representing  the  upper 
limit  of  stage  one  (energy  limited)  evaporation  (U)  was 
specified  in  the  soil  characteristic  input  files.   After 
this  upper  limit  was  reached,  soil  evaporation  continued  in 
stage  two  (the  soil  limited  stage)  as  a  declining  function 
of  time.   Plant  transpiration  was  determined  by  a  root  water 
absorption  sub-model.   Radial  flow  of  water  into  a  single 
root  was  calculated  as 

qr  =  47TK(e)  <0r   -  0q)  (3-2) 

In  c2 


where 


qr  =  water  absorption  rate  (cm3/cm) , 

K(9)  =  hydraulic  conductivity  (cm/day), 

8  =  soil  water  content  (cm3/cm3) , 

0r  =  water  potential  at  root  surface  (cm) 

ps  =  water  potential  in  soil  (cm) , 

c  =  radius  of  cylinder  of  soil  through 
which  water  is  moving  (cm) ,  and 

r  =  root  radius  (cm) . 
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Ritchie  (1985)  developed  an  empiricism  used  to 
calculate  K(9)  for  all  soils: 

K(6)  =  10-5  exp  (62  (6  -  9X)  )  (3-3) 

where 

9l   =  lower  limit  soil  water  content  (cm3/cm3) . 

By  combining  equations  (3-2)  and  (3-3),  using  the 
relationship  that  c  =  (jr  L^)"1/2    (where  Ly  is  the  root 
length  density  (cm/cm3)),  and  assuming  that  r  =  0.02  cm  and 
(0r  "  0s)  =  21  cm  water,  an  equation  was  derived  to  find 
root  water  uptake  as  a  function  of  soil  water  content  and 
root  length  density: 

qr  =  2.64  x  10~3  exp  (62  (8  -  9^)  .  (3-4) 

6.68  -  In  Lv 

The  potential  difference  (0r  -  ps)  =  21  cm  was  derived  from 
experiments  using  equation  (3-2)  and  measuring  or 
approximating  the  other  variables.   Water  absorption  rates 
were  chosen  when  the  soil  dry  enough  that  absorption  rates 
were  clearly  limited  by  soil  water  conductivity. 

Equation  (3-4)  was  used  as  the  maximum  soil-limited 
water  absorption  rate  for  calculating  plant  transpiration. 
Root  water  uptake  (RWU)  was  added  for  all  soil  layers  which 
contained  roots  to  obtain  a  value  of  plant  transpiration 
(TRWU) .   This  value  was  compared  with  potential 
transpiration  (EP1)  which  was  calculated  by  weighting 
potential  ET  (E0)  by  the  leaf  area  index  (LAI) .   if  the 
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potential  transpiration  was  found  to  be  less  than  the  soil- 
limited  transpiration,   maximum  absorption  rates  calculated 
for  each  depth  were  reduced  proportionately  so  the  uptake 
equalled  the  potential  transpiration.   If  the  potential 
transpiration  was  found  to  be  greater  than  soil-limited 
transpiration,   transpiration  rate  was  set  equal  to  the 
soil-limited  transpiration.   In  the  latter  case,   an  amount 
of  crop  stress  proportional  to  the  degree  of  difference 
would  occur  since  the  evaporative  demands  are  greater  than 
the  soil  environment's  ability  to  supply  the  needs  of  the 
crop.   Soil  water  deficit  factors  were  calculated  based  on 
the  ratio  of  soil-limited  to  potential  transpiration.   These 
deficit  factors  (SWDF1  and  SWDF2)  were  used  to  adjust 
photosynthesis  and  plant  cell  expansion  in  the  crop  growth 
subroutine. 

For  the  CERES  models,  potential  infiltration  of  water 
(PINF)  was  calculated  as  the  difference  between  precip- 
itation or  irrigation  and  runoff.   Runoff  was  calculated  by 
the  SCS  curve  number  technique.   When  irrigation  water  was 
applied,  the  runoff  estimation  procedure  was  bypassed. 
Thus,  all  irrigation  water  was  assumed  to  infiltrate. 
Drainage  rate  to  the  next  soil  layer  was  a  function  of  the 
amount  of  water  in  a  layer  above  a  drained  upper  limit  of 
water  content  (DUL)  and  a  conductance  parameter  (SWCON) . 
This  conductance  parameter  was  assumed  to  be  constant  for 
the  entire  soil  profile.   Unsaturated  flow  volume  (FLOW) 
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between  soil  layers  was  a  function  of  the  soil  water  content 
difference  between  layers  and  average  soil  diffusivity 

(DBAR)  (also  a  function  of  the  water  content  difference) . 

Wilkerson  et  al.  (198  3)  developed  a  soybean  growth  and 
yield  model  (SOYGRO)  which  was  later  refined  to  include  a 
model  of  root  length  density  in  eight  divided  layers  of  soil 

(Jones  et  al.,  1988).   PNUTGRO  1.02  was  developed  by 
adapting  SOYGRO  for  peanuts  (Boote  et  al.,  1989).   The  model 
used  the  root  growth  and  soil-water  balance  methods  used  in 
CERES  (Jones  et  al.,  1986;  Ritchie,  1985).   Like  SOYGRO,  the 
soil  was  divided  into  horizontal  zones  each  containing  soil 
water  and  root  length  density  that  changed  with  time. 

PNUTGRO  1.02  incorporated  a  slightly  modified  version 
of  the  CERES  root  weighting  function  and  water  balance.   If 
water  content  in  a  layer  was  above  a  drained  upper  limit, 
leaching  was  allowed  to  occur.   However,  the  time  constant 
for  drainage  was  considered  for  each  soil  layer  rather  than 
one  value  for  the  entire  soil.   This  allowed  rapid 
infiltration  in  the  topsoil  yet  allowed  perching  of  water  in 
the  lower  layers  which  have  slower  drainage. 
Knowledge-Based  Systems 

Knowledge  systems  have  become  important  tools  in  system 
fault  diagnosis  (Jones  and  Haldeman,  1985) ,  scheduling  of 
multiple  production  or  processing  operations  (Lai  et  al., 
1988),  marketing  and  economic  alternative  advisement  (Thieme 
et  al.,  1985),  and  medical  diagnosis  (Shortliffe,  1976),  to 
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name  a  few  cases.   In  conventional  software  development,  the 
objective  is  to  solve  problems  using  algorithms  guaranteed 
to  give  a  correct  answer.   Not  every  problem  can  be  solved 
only  with  well  defined  algorithms,  however.   Many  situations 
cannot  be  predicted  ahead  of  time,  and  conventional  software 
might  require  significant  code  changes  to  accommodate  minor 
observed  differences  from  the  programmed  case.   With  a 
knowledge  system,  the  researcher  will  typically  tell  the 
computer  what  to  know  (Waldrop,  1987)  rather  then  tell  the 
computer  precisely  what  to  do  at  every  point.   The  computer 
then  uses  that  knowledge  to  reason  about  what  to  do  should 
new  situations  arise. 

Knowledge  systems  are  coded  with  knowledge  obtained 
from  human  experts  and  other  sources  in  a  narrow  subject 
domain.   System  objectives  are  to  offer  possible  solutions 
to  problems.   Figure  3-2  illustrates  the  processes  involved 
in  the  development  of  a  rule  based  knowledge  system.   The 
knowledge  engineer,  expert,  and  user  have  unique  roles  in 
development  and  use  of  the  system.   The  knowledge  engineer 
extracts  knowledge  from  the  expert  through  extensive 
interviews  and  any  other  aids  at  his  disposal.   Data  from 
other  sources  can  also  be  used  to  augment  an  expert's 
knowledge.   The  knowledge  engineer  then  codes  this  knowledge 
into  a  knowledge  base  using  a  rule  development  language.   A 
control  structure  called  the  inference  engine  determines 
which  rules  will  be  used  and  how  they  will  be  used,  accesses 
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the  rules,  and  executes  the  rules.   As  the  user  operates  the 
system,  he  can  provide  feedback  to  the  knowledge  engineer  to 
effect  improvements  to  the  user  interface.   Through 
systematic  interviews,  the  knowledge  engineer  also  receives 
feedback  from  the  expert  to  improve  the  knowledge  base 
(Hoffman,  1987). 

The  inference  engine  customarily  uses  two  methods  of 
accessing  and  executing  the  rules.   A  forward  chaining 
system  starts  with  a  set  of  known  data  or  facts.   All  rules 
that  can  be  confirmed  using  those  facts  are  fired  (or 
activated) .   New  facts  are  introduced  to  the  knowledge  base 
by  the  rules  that  fire.   This  procedure  continues  until  a 
conclusion  is  reached.   A  backward  chaining  system,  by 
contrast,  is  goal  directed.   That  is,  the  inference  engine 
starts  backwards  from  a  desired  goal  and  asks  the  user 
questions  or  receives  facts  from  a  data  base  to  determine 
whether  a  rule  satisfying  that  goal  will  fire. 

Knowledge  systems  that  are  both  data  and  goal  directed 
have  many  applications  in  agriculture.   Agriculture  is 
uniquely  suited  to  benefit  from  knowledge  system  technology. 
Many  agricultural  decisions  are  subjective  in  nature  and  are 
not  backed  up  by  any  "hard"  evidence.   Although  algorithms 
can  be  developed  and  equations  can  be  solved  to  make 
decisions  easier,  decisions  such  as  when  to  till,  when  to 
harvest,  when  to  irrigate,  or  which  herbicide  to  apply  are 
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largely  made  based  on  years  of  experience  (Jones  et  al., 
1987)  . 

Knowledge  systems  that  have  been  developed  and  are 
pertinent  to  this  study  use,  interpret,  and  correct 
simulation  model  outputs  for  optimum  crop  management. 
McKinion  (1986)  developed  a  Model  Development  and  Validation 
Expert  System  (MODVEX)  that  performed  automatic  validation 
of  the  cotton  model  GOSSYM  (Baker  et  al.,  1983).   This 
expert  system  was  developed  to  reduce  the  time  involved  to 
validate  a  model  and  improve  parts  of  the  model  judged 
deficient.   The  system  was  rule  based  and  used  the  knowledge 
of  model  developers  and  validation  databases  to  determine 
the  validity  of  the  latest  version  of  GOSSYM.   The  expert 
system  used  a  forward  chained  (or  data  driven)  approach  that 
compared  patterns  in  GOSSYM  model  outputs  to  appropriate 
validation  data  sets  to  reach  conclusions  on  model  validity. 
In  MODVEX,  facts  were  contained  in  a  database  containing 
simulated  results  and  a  database  containing  validation 
results.   A  rule  would  compare  a  time  series  of  data  from 
both  databases  and  make  a  determination,  within  an  allowable 
tolerance,  if  a  plant  parameter  was  being  modeled  properly. 
MODVEX  was  developed  in  a  rule  based  format  using  the 
Automated  Reasoning  Tool  (ART)  on  a  Symbolics  3670  LISP 
machine.   ART  contained  the  complete  programming  environment 
for  building  expert  systems.   The  ART  rule  base  was  compiled 
into  LISP  and  run  on  the  Symbolics  machine.   The  crop  model 
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GOSSYM  was  written  in  FORTRAN  77  and  compiled  without  any 
code  changes  into  LISP  using  the  Symbolics  compiler.   This 
allowed  ART,  LISP,  and  FORTRAN  programs  to  be  completely 
integrated  into  the  programming  environment  of  the  Symbolics 
machine. 

MODVEX  could  detect  errors  in  the  simulation  models. 
Goals  for  future  development  include  the  ability  to  isolate 
the  source  of  errors  to  a  particular  piece  of  code 
describing  a  particular  process.   The  system  could  then 
automatically  make  parameter  adjustments  to  the  simulation 
model . 

Knowledge  systems  are  just  beginning  to  be  used  as 
tools  for  crop  management.   Lemmon  (1986)  described  the 
first  integration  of  an  expert  system  with  a  simulation 
model  for  daily  use  on  the  farm.   The  expert  system,  COMAX, 
was  interfaced  with  the  cotton  model  GOSSYM  (Baker  et  al., 
1983)  to  provide  the  user  with  expected  irrigation  dates, 
nitrogen  requirements,  and  crop  maturity  date.   The 
irrigation  scheduling  component  took  into  account  irrigation 
systems  that  take  a  longer  period  to  apply  water  to  parts  of 
the  field  (center  pivots,  for  example) .   The  ET  model  in 
GOSSYM  was  used  to  determine  the  irrigation  schedule.   Crop 
maturity  date  was  needed  so  the  farm  manager  could  determine 
precisely  when  to  apply  defoliants  and  boll  openers. 
Weather  updating  provided  better  estimates  of  the  above 
variables  as  the  season  progressed.   COMAX  prepared  data 
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files  that  hypothesized  weather  scenarios  and  applications 
of  water  and  nitrogen.   The  hypothesized  weather  was 
replaced  by  actual  weather  each  day  thereby  making  future 
estimates  more  reliable. 

Like  MODVEX,  described  above,  COMAX  was  developed  on  a 
Symbolics  3670  LISP  machine.   The  developers  wrote  the 
inference  engine  that  examines  the  rules  in  LISP.   COMAX  and 
GOSSYM  (written  in  FORTRAN)  were  downloaded  to  PC 
microcomputers  so  a  cotton  grower  could  use  the  system.   A 
complete  season's  simulation  with  GOSSYM  took  60  to  90 
minutes  on  an  IBM  PC  with  a  math  co-processor  and  about  20- 
30  minutes  on  an  IBM  AT  with  a  math  co-processor. 
Knowledge-Based  System — Design 
As  has  been  indicated,  knowledge-based  systems  are 
beginning  to  utilize  crop  growth  simulation  models  to 
provide  forecasts  of  many  variables  on  the  farm.   Realizing 
the  time  required  to  analyze  validation  data  sets, 
researchers  have  also  implemented  systems  to  automatically 
validate  simulation  models,   when  discrepancies  were 
detected  between  validation  data  sets  and  modeled  results, 
the  researcher  would  be  told  which  parameter  was  not  being 
modeled  properly.   He  could  then  isolate  errors  based 
knowledge  of  the  processes  involved  and  improve  the  model. 
Then,  the  improved  model  could  be  used  to  provide  better 
forecasts. 
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The  proposed  study  uses  a  variation  of  the  above 
knowledge-based  implementation.   Instead  of  relying  on 
several  data  sets  to  improve  the  model,  a  system  is  proposed 
that  uses  information  from  its  current  runs  to  perform 
parameter  adjustments  automatically.   To  accomplish  this,  a 
knowledge  base  is  required  that  contains  information  about 
the  processes  involved  and  how  to  improve  their  modeled 
representations  based  on  field  measurements. 

COMAX  did  not  use  field  sensors  in  a  feedback  mode  to 
the  irrigation  portion  of  their  system.   For  good  reasons, 
many  researchers  have  abandoned  sensor-based  approaches  in 
favor  of  model-based  approaches.   Lack  of  sensor  reliability 
and  the  time  required  to  service  them  have  led  to  concen- 
trated research  on  how  to  improve  simulation  models,   if 
reliable  sensors  are  used  and  the  need  to  interpret  their 
readings  are  removed,  however,  field  sensors  can  provide 
valuable  feedback  to  model-based  representations  of  the 
field  water  balance. 

Further,  if  a  knowledge  base  is  constructed  beforehand, 
it  can  be  incorporated  into  a  system  that  adjusts  parameters 
as  the  farm  manager  uses  the  system.   The  farm  manager  is 
not  required  to  wait  to  receive  an  improved  version  of  the 
model.   The  need  for  sensor-based  feedback  should  be 
diminished  as  the  season  progresses  and  the  model  makes 
better  predictions.   This  could  be  very  important  if,  for 
example,  an  automatic  system  reading  the  sensors  becomes 
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inoperative  and  the  farm  manager  must  rely  solely  on  the 
model  for  predictions.   Another  advantage  is  that  data 
obtained  from  a  season's  run  increases  the  base  of  knowledge 
so  that  both  the  sensor  diagnostic  and  model  can  be  refined. 

Using  the  above  concepts,  an  irrigation  scheduling  tool 
was  developed  for  peanuts  using  a  simulation  model  and 
sensor-based  feedback  to  make  parameter  adjustments  to  the 
model.   Diagnostics  to  judge  the  suitability  of  sensor 
reading  were  also  developed.   Although  the  scheduler  was 
developed  for  peanuts,  any  crop  simulation  model  that  uses 
the  IBSNAT  (1986)  format  for  input  and  output  files  can  be 
used.   These  include  CERES-MAIZE  (Jones  et  al.,  1986), 
CERES-WHEAT  (Ritchie,  1985),  and  SOYGRO  (Wilkerson  et  al., 
1983;  Jones  et  al . ,  1988).   Since  the  end  user  is  to  be  the 
farm  manager,   a  PC  based  scheduler  that  would  run  at 
adequate  speed  was  also  desired.   PNUTGRO  1.02  (Boote  et 
al.,  1989)  was  chosen  as  the  simulation  model  because  it 
contains  a  user-oriented  water  balance  with  minimum  weather 
inputs  and  an  adequate  description  of  water  use  in  specific 
soil  zones.   A  description  of  water  use  in  specific  soil 
zones  was  necessary  so  sensor-based  feedback  could  be 
applied. 

For  the  knowledge  system  shell,  a  commercial  package 
was  chosen  from  many  that  were  investigated.   Requirements 
were  that  the  shell  be  able  to  run  on  a  PC  based  system, 
that  it  be  able  to  call  outside  programs  (in  this  case, 
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other  data  manipulation  routines,  other  user  interfaces,  and 
PNUTGRO  1.02),   and  that  it  have  a  versatile  interface  with 
a  database.   The  data  base  format  was  also  required  to  be 
compatible  with  PNUTGRO  1.02  and  other  programs  that  might 
be  called  from  the  rule  base.   The  data  base  holds  values 
for  variables  that  are  passed  between  component  programs  of 
the  system.   This  was  done  to  avoid  keeping  track  of  many 
variables  and  allow  compatibility  between  languages.   Using 
a  data  base  allowed  much  easier  development  and  de-bugging 
of  each  system  component. 

None  of  the  knowledge  system  shells  investigated  had 
versatile  interfaces  with  simple  ASCII  files  (the  format  of 
PNUTGRO  output  files) .   Many  had  good  interfaces  with  DBASE 
style  files,  but  these  did  not  provide  the  needed  versa- 
tility for  advanced  data  handling.   One  package,  VP-Expert 
2.0  (Paperback  Software  International,  1987)  was  found  to 
have  a  very  good  interface  with  spreadsheet  files. 
Spreadsheet  macros  could  be  constructed  to  manipulate  data 
in  sophisticated  ways.   Therefore,  spreadsheet  files  were 
chosen  to  hold  data  passed  between  the  rule  base  and  other 
programs.   ASCII  files  could  be  imported  to  the  spreadsheet 
and  spreadsheet  data  could  be  converted  to  ASCII  using  these 
macros. 

Summary 

Criteria  to  develop  a  knowledge-based  system  for 
irrigation  scheduling  were  established.   Knowledge  system 
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reasoning  methods  were  discussed  and  previous  work  regarding 
knowledge-based  simulations  for  on-farm  use  were  presented. 
The  proposed  system  uses  readings  from  soil  water  sensors  to 
provide  feedback  to  components  of  the  PNUTGRO  crop  model. 
Advantages  of  the  proposed  system  were  discussed  and 
specific  components  of  the  knowledge  system  were  selected. 
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Figure  3-1.  Plant  environment  showing  mass,  energy 
exchanges,  and  state  variables  ei    and 
RLDi . 
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Figure  3-2.  Schematic  representation  of  processes 

involved  in  knowledge  system  development 
(Jones  and  Haldeman,  1985) . 


CHAPTER  IV 

PROCEDURES  FOR  MEASURING 

EVAPOTRANSPIRATION,  SOIL  WATER  SUCTION, 

AND  WEATHER  VARIABLES  FOR  PEANUTS 

Introduction 

Methods  were  implemented  to  measure  evapotranspiration 
of  a  peanut  crop,  measure  precipitation  quantities,  and 
monitor  soil  water  suctions  in  several  soil  zones  with 
sensors.   Data  obtained  from  these  measurements  were  used  to 
develop  a  knowledge  base  for  sensor  diagnosis  and  a  program 
to  correct  the  water  balance  routines  of  PNUTGRO.   The  data 
were  also  needed  to  verify  the  program's  parameter  adjust- 
ments.  Weather  data  needed  for  the  PNUTGRO  crop  model  were 
also  obtained. 

Weighing  lysimeters  described  by  Butts  (1988)  were 
chosen  for  the  test  since  short  term  measurements  of  actual 
evapotranspiration  were  possible  and  the  peanuts  could  be 
easily  maintained.   Weighing  lysimeters  measure  evaporation 
by  monitoring  the  weight  changes  within  an  enclosed  soil 
volume.   Other  lysimeters  of  the  non-weighing  type  have  also 
been  used  for  studies  such  as  these  over  longer  periods. 

Soil  water  status  may  be  inferred  or  read  directly 
using  soil  water  sensors  or  other  methods.   The  location  of 
water  extractions  from  the  root  zone  can  be  inferred  based 
the  relative  magnitudes  of  readings  from  sensors  placed  at 
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various  depths.   Further,  sensor  readings  after  irrigation 
are  useful  to  determine  the  depth  of  irrigation  water 
penetration.   This  information  can  be  used  to  modify  the 
amount  of  water  to  apply  on  subsequent  irrigation  cycles. 

Objectives 
The  goal  of  the  experimental  design  was  to  provide  data 
needed  to  determine  the  water  balance  under  peanuts  for 
comparison  to  model-based  results.   Specific  procedures 
required  for  the  experiment  were: 

1.  to  instrument  two  weighing  lysimeters,  calibrate  the 
instrumentation,  and  measure  hourly  evapotrans- 
piration  rates,  rainfall  and  drainage  for  peanuts, 

2.  to  provide  pre-plant  nutrients,  proper  water  amounts, 
and  disease  control  for  proper  growth  and  maintenance 
of  peanuts, 

3.  to  measure  soil  water  suction  in  situ  at  several 
lateral  spacings  and  depths,  and 

4 .  to  measure  ambient  weather  conditions  needed  for  the 
PNUTGRO  crop  model. 

Lvsimeter  Installation 
Two  weighing  lysimeters  were  instrumented  to  determine 
the  soil  water  balance.   The  experiment  is  illustrated  in 
Figure  4-1.   Both  lysimeters  were  installed  at  the 
Irrigation  Research  and  Education  Park  (IREP)  by  Butts 
(1988)  .   For  this  study,  each  lysimeter  was  instrumented 
with  four  load  cells,  a  net  radiometer,  and  thermocouples. 
Although  net  radiation  was  not  needed  as  an  input  to 
PNUTGRO,  Butts  (1988)  had  already  installed  the  net 
radiometers,  so  net  radiation  data  were  taken  for  possible 
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future  analyses.   Each  lysimeter  was  also  instrumented  with 
a  bank  of  soil  water  sensors  in  locations  that  the  crop 
began  showing  a  good  stand.   These  sensors  were  placed  at 
several  depths  and  lateral  spacings  and  were  read  manually. 
The  load  cells  were  manufactured  by  Hottinger  Baldwin 
Measurements  (HBM  Model  USB10K)  and  could  accept  a  maximum 
excitation  of  18  volts.   The  load  cells'  output  sensitivity 
was  3mv/volt  excitation.   A  Kepco  Model  PCX-21  regulated 
power  supply  provided  10  volts  excitation  to  all  load  cells. 
Load  cell  outputs  and  excitation  voltages  (measured  at  the 
location  of  each  load  cell)  were  brought  to  a  Fluke  Model 
2205A  multiple  channel  multiplexer.   An  IBM  PC/XT  was 
programmed  to  sequence  the  multiplexer  and  allow  a  selected 
channel  to  be  read  into  a  single  channel  precision  digital 
multimeter  (Fluke  Model  8520A) .   The  multimeter  was  used  as 
a  voltmeter.   The  multiplexer  and  voltmeter  shared  an  IEEE- 
488  parallel  bus  and  were  controlled  by  a  Metrabyte  Model 
IE-488  interface  card  installed  in  the  PC.   A  BASIC  program 
was  written  to  implement  the  standardized  control  codes  for 
the  IEEE-488  interface  and  read  the  load  cells,  thermo- 
couples, and  net  radiometer  for  each  lysimeter.   Data  from 
load  cells,  thermocouples  and  net  radiometers  were  stored  in 
separate  data  files. 

A  sump  pump  and  dual  tank  system  had  been  implemented 
by  Butts  (1988)  (Figure  4-1)  to  drain  the  lysimeters  after 
large  rain  events.   Two  porous  ceramic  stones  were  located 
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at  the  bottom  of  each  lysimeter  and  connected  to  vacuum 
tubing  to  remove  excess  water  from  the  lysimeters.   The 
vacuum  line  from  each  lysimeter  was  routed  to  a  bottom  inlet 
of  one  of  the  tanks.   A  pump  placed  a  vacuum  on  both  tanks 
drawing  water  into  them.   This  system  was  activated  manually 
when  significant  rain  events  occurred.   Quantities  of  water 
that  accumulated  in  the  tanks  were  measured  and  times  of 
operation  were  noted.   The  observed  water  quantities  were 
subtracted  from  amounts  of  water  use  derived  from  load  cell 
measurements.   This  was  done  so  actual  water  use  by  the  crop 
could  be  obtained  during  the  period  of  sump  pump  operation. 
Lysimeter  Calibration 

Each  lysimeter' s  load  cells  were  calibrated  following  a 
modification  to  the  procedure  described  by  Butts  (1988) .   A 
BASIC  program  was  written  for  each  lysimeter  to  read  the 
load  cell  output  voltages  and  excitation  voltages  every 
minute.   Program  syntax  is  explained  in  a  later  discussion 
of  the  data  acquisition  program  of  which  this  program  is  a 
special  case. 

Six  weights  were  used  to  load  and  unload  the  load 
cells.   Weights  were  placed  directly  on  the  beam  over  a  load 
cell.   The  program  was  started  and  a  stopwatch  was  used  to 
determine  when  to  add  or  subtract  weight.   During  the  first 
two  minutes  of  the  program  run,  no  weights  were  placed  over 
the  load  cell.   Each  minute  thereafter,  one  more  weight  was 
placed  until  all  six  had  been  loaded.   Weights  were  then 
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decreased  to  zero  and  the  sequence  was  repeated  for  the  next 
load  cell.   After  all  four  load  cells  at  the  lysimeter  had 
been  read,  the  program  was  stopped.   Three  more  programs 
were  written  to  further  reduce  and  perform  calculations  on 
the  data.   Results  from  the  final  program  were  exported 
directly  to  a  spreadsheet  for  a  linear  regression.   Plots  of 
the  regression  equations  are  illustrated  in  Figures  4-2  and 
4-3  for  the  north  and  south  lysimeters  respectively. 

Experimental  Procedures 
Peanut  Management 

The  soil  in  each  lysimeter  was  prepared  to  plant 
peanuts  on  May  16,  1988.   The  soil  was  tilled  to  a  depth  of 
approximately  4  0  cm  with  a  shovel  and  hoe  and  smoothed  with 
a  rake.   Soil  samples  were  delivered  to  the  IFAS  Extension 
Soil  Testing  Laboratory  for  chemical  analysis  before 
planting.   A  recommendation  was  made  to  incorporate  the 
equivalent  of  560  kg/ha  (500  lb/acre)  of  a  4-8-16  fertilizer 
mix  to  the  soil  in  the  lysimeters  (K.  Boote,  personal 
communication) .   A  5-10-15  mix  was  substituted  because  of 
availability  and  0.36  kg  (0.8  lbs)  for  each  lysimeter  was 
incorporated  into  the  soil.   A  decision  was  made  not  to 
incorporate  a  pre-plant  herbicide  since  the  lysimeters  were 
small  enough  to  be  weeded  manually. 

Four  rows  for  planting  were  marked  in  each  lysimeter  76 
cm  (30  in)  apart  from  each  other.   Both  lysimeters  had  an 
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east-west  dimension  of  300  cm  (119  in)  which  gave  36  cm  (14 
in)  from  each  edge  to  the  respective  border  row  (Figure  4- 
4). 

Peanuts  were  planted  May  20,  1988  in  a  moist  soil  4  cm 
(1.5  in)  deep  and  4  cm  (1.5  in)  apart  in  each  row.   The 
plants  were  thinned  to  8  cm  (3  in)  apart  in  the  north 
lysimeter  when  a  suitable  stand  was  observed  15  days  after 
planting  (DAPL,  June  3).   Growth  of  plants  in  the  south 
lysimeter  lagged  somewhat  behind  the  ones  in  the  north 
lysimeter  in  the  early  stages  and  were  thus  thinned  21  DAPL 
(June  9)  . 

First  flower  was  observed  at  the  north  lysimeter  33 
DAPL  (June  22)  and  0.36  kg  (0.8  lbs)  of  gypsum  was  applied 
to  each  lysimeter.   Leafspot  disease  control  was  begun  52 
DAPL  (July  11).   A  mixture  of  1.54  ml  Bravo  500  and  water 
(equivalent  to  2  pt/acre  Bravo)  was  applied  to  the  plant 
leaves  in  each  lysimeter.   A  trigger  sprayer  was  used  to 
apply  the  mixture  evenly  to  the  plant  leaves.   Applications 
were  made  at  weekly  intervals  in  the  morning  hours  until 
harvest. 
Soil  Water  Suction  Measurement 

Soil  water  sensors  were  installed  in  each  lysimeter  42 
DAPL  (July  1) .   Locations  for  placement  were  chosen  in  areas 
that  appeared  to  have  a  good  stand.   Each  lysimeter 
contained  a  total  of  nine  sensors  at  locations  illustrated 
in  Figure  4-5.   The  sensors  chosen  were  the  previously 
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described  Watermark  Model  200  soil  water  sensors.   A  model 
of  A.C.  resistance  for  the  sensors  was  determined  as  a 
function  of  soil  water  suction  and  temperature  by  Thomson 
and  Armstrong  (1987) . 

The  Watermark  Model  30KTC  meter  was  used  to  read  the 
sensors.   The  meter  was  calibrated  before  it  was  used. 
Meter  readings  were  converted  to  an  equivalent  sensor 
resistance  so  the  derived  model  could  be  used.   The  meter 
had  a  temperature  compensation  adjustment  that  was 
arbitrarily  set  to  24°C  (75°F)  for  the  calibration. 

A  decade  resistance  box  was  connected  to  the  output 
terminals  of  the  meter.   The  meter  was  set  to  a  reading  and 
the  resistance  at  the  terminals  was  adjusted  until  a  sound 
was  emitted  by  the  meter.   The  resistance  box  was 
disconnected  and  the  resistance  at  the  box  terminals  was 
determined  using  a  Fluke  digital  voltmeter.   The  test  was 
repeated  at  several  meter  readings.   The  resulting 
relationship  between  meter  reading  and  resistance  is  shown 
in  Figure  4-6. 

The  soil  water  sensors  were  read  at  least  once  a  day  in 
the  morning  while  the  crop  was  growing.   During  extended 
periods  of  wet  conditions,  sensors  were  not  read  until  rain 
conditions  subsided. 
Temperature  Measurement 

Thermocouples  were  already  installed  by  Butts  (1988)  at 
both  lysimeters  and  connected  into  the  data  acquisition 
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system.   Butts  (1988)  used  the  thermocouples  to  measure  the 
vertical  distribution  of  temperature  in  the  soil .   The 
primary  purpose  for  measuring  temperatures  for  this  study 
was  simply  to  provide  temperature  compensation  for  the 
Watermark  sensors.   All  channels  were  read,  however,  in  case 
the  data  could  be  useful  for  future  studies. 

The  thermocouples  were  arranged  as  shown  in  Figure  4-4. 
Stations  A,  C,  and  D  were  located  in  the  row.   Station  B  was 
placed  halfway  between  the  rows.   Table  4-1  shows  the  depths 
selected.   Thermocouple  depths  that  correspond  to  soil  water 
sensor  depths  are  starred  (*)  in  the  table.   For  temperature 
compensation  of  the  soil  water  sensors,  thermocouple 
readings  at  stations  C  and  D  were  used.   Temperature  data  at 
sensor  depths  indicated  in  Table  4-1  were  used  in  their  raw 
form  to  compensate  the  soil  moisture  sensors  using  the 
equations  of  Thomson  and  Armstrong  (1987). 
Load  Cell  and  Temperature  Data  Acquisition 

A  BASIC  program  (Figure  4-7)  was  written  to  configure 
the  instruments  and  read  load  cell  and  soil  temperature  data 
every  half  hour.   Net  radiation  was  sampled  every  5  seconds 
and  averaged  over  the  half  hour  period.   The  program 
implemented  standard  IEEE-488  command  syntax.   The 
following  discussion  describes  operation  of  the  program  for 
taking  data  from  both  lysimeters  at  the  irrigation  park. 

At  the  beginning  of  the  program,  the  date  and  time  were 
entered  (lines  110  -  150) .   The  address  of  the  ROM  firmware 
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routine  was  then  specified  (line  160) .   A  command  string 
(line  170)  defined  the  device  address  for  the  PC  (MAD  =  6) , 
that  the  board  was  the  bus  controller  (CIC  =  1) ,  and  that 
one  board  was  installed  (NOB  =  1) .   The  base  I/O  address 
through  which  all  data  is  transferred  was  also  specified 
(BAO  =  $H300) .   This  address  corresponded  to  the  base 
address  chosen  by  setting  the  dip-switches  on  the  board. 
The  call  offset  variable  was  then  set  to  zero  (line  180)  and 
the  error  flag  (FLG%)  was  set  to  zero  (line  190) .   The 
system  was  then  initialized  with  the  above  parameters  by  a 
call  to  the  firmware  routine  (line  200) .   An  error  statement 
(line  210)  was  programmed  to  insure  that  initialization 
proceeded  correctly. 

The  data  acquisition  instruments  were  then  configured 
(line  250)  .   The  two  instruments  on  the  bus  were  a  Fluke 
2205A  multiplexer  and  Fluke  8520A  digital  voltmeter.   These 
instruments  were  previously  assigned  IEEE-488  addresses  by 
setting  switches  on  their  back-panels.   The  multiplexer  was 
assigned  an  address  of  3  and  configured  as  a  "listener." 
The  multiplexer's  only  function  was  to  select  the  proper 
channel  to  be  read  by  codes  received  on  the  IEEE-488  bus. 
The  voltmeter  was  assigned  an  address  of  1  and  configured  as 
both  a  "listener"  and  a  "talker."   In  this  mode,  the 
voltmeter  received  trigger  commands  from  the  bus  and 
transmitted  data  (selected  by  the  multiplexer)  to  the  bus. 
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The  configuration  was  implemented  by  calling  the 
firmware  through  a  subroutine  (line  1410) .   Both  instruments 
were  then  set  to  remote  operation  (lines  290  and  300) .   The 
voltmeter  was  then  configured  to  read  DC  voltages,  auto- 
matically set  the  proper  input  range,  and  to  lockout  the 
front  panel  to  prevent  accidental  alteration  of  the 
configuration . 

After  the  configuration  was  set,  a  polling  routine  was 
implemented  (line  400) .   Net  radiometers  were  read  every  5 
seconds  while  load  cell  and  temperature  data  were  read  every 
half  hour  (lines  400-490) .   The  subroutine  to  read  the 
radiometers  (beginning  at  line  1250)  was  first  activated. 
The  net  radiometers  were  connected  to  channels  16  and  17  at 
the  multiplexer  for  the  north  and  south  lysimeters 
respectively.   A  channel  was  selected  (lines  1270-1280)  and 
the  voltmeter  was  triggered  to  enable  it  (line  1290).   The 
data  string  was  cleared  and  an  IEEE-488  "ENTER"  command  was 
sent  to  the  voltmeter  to  read  data  into  variable  A$  (lines 
1300-1310) .   When  six  net  radiation  values  were  read  for 
each  radiometer  (lines  1320-1380),  they  were  averaged  (lines 
1470-1570) .   The  average  of  every  six  radiation  values  was 
stored  in  variable  AVG(I) . 

Load  cell  and  thermocouple  voltages  were  read  and 
stored  every  30  minutes  (line  490) .  This  sequence  had 
priority  over  the  5  second  net  radiation  read  routine. 
Before  load  cells  and  temperatures  were  read,  however,  the 
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program  section  between  lines  540  and  760  was  activated. 
All  AVG(I)  net  radiation  values  were  averaged  over  the  half 
hour  period  and  the  resulting  two  net  radiation  values  (one 
for  each  lysimeter)  were  stored  in  a  data  file.   Load  cell 
and  temperature  data  were  then  retrieved  and  stored  using 
the  same  IEEE-488  codes  previously  discussed  (lines  780- 
1210)  . 

In  operation,  the  program  did  not  read  all  of  the  net 
radiation  values  that  it  should  over  the  3  0  minute  period. 
There  should  have  been  59  values  of  AVG(I)  since  each  AVG(I) 
was  an  average  net  radiation  over  30  seconds.   Typically, 
there  were  only  54  values  of  AVG(I)  meaning  that  the  program 
was  2.08  minutes  slower  per  3  0  minute  interval.   The  program 
section  beginning  at  line  540  was  therefore  designed  to 
allow  for  a  variable  number  of  AVG(I)  values  stored.   The 
program  averaged  only  the  number  of  AVG(I)  values  present 
but  always  read  59  values  for  each  radiometer.  If  less  than 
59  values  of  AVG(I)  were  present  in  the  buffer,  the  other 
spaces  were  set  to  zero  (lines  62-66  and  lines  762-766) . 
Accordingly,  the  divisor  was  set  to  the  number  of  non-zero 
values  (line  570) .   This  procedure  is  suitable  if  an  exact 
number  of  readings  are  not  required  over  an  interval. 

Programs  were  developed  to  extract  and  sort  load  cell 
data  for  spreadsheet  analysis.   Using  the  programs,  ET  plots 
could  be  examined  over  any  period,  and  each  load  cell's 
output  could  be  examined  in  a  spreadsheet  if  data  seemed 
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questionable.   Load  cell  outputs  (mv)  were  divided  by  their 
respective  excitation  voltages  to  obtain  readings  in  mv/volt 
excitation.   The  final  program  sent  data  of  the  time  (hours, 
minutes,  and  seconds)  and  load  cell  output  (mv/volt)  to  a 
data  file  ET3.DAT.   The  data  file  could  then  be  imported  by 
a  spreadsheet. 
Weather  Data  Acquisition 

Meteorological  data  used  for  PNUTGRO  were  extracted 
from  daily  data  files  downloaded  from  the  VAX  mainframe. 
Meteorological  data  were  recorded  hourly  from  sensors  at  the 
Agronomy  farm  (in  close  proximity  to  the  lysimeters)  and 
uploaded  daily  to  the  VAX.   Hourly  weather  data  could  be 
accessed  through  the  AWARDS  (Agricultural  Weather 
Acquisition  Retrieval  Delivery  System) ,  and  entire  daily  and 
hourly  data  files  (that  included  relative  humidity, 
windspeed  and  other  variables)  were  retrieved.   These  files 
were  divided  using  a  Campbell  Scientific  program  called 
SPLIT,  that  reads  and  re-writes  only  the  needed  columns  of 
data  to  a  file.   The  data  of  interest  were  daily  solar 
radiation  (Mj/m2) ,  maximum  and  minimum  daily  air 
temperatures  (°C) ,  rainfall  (cm/day) ,  and  photosynthetically 
active  radiation  (PAR,  E/m2) .   Totaled  hourly  data  were  used 
to  fill  gaps  in  missing  daily  data  that  frequently  occurred 
when  the  VAX  was  inoperative.   Using  data  obtained  from 
AWARDS,  a  weather  file  (UFGA0511.W88)  was  constructed  for 
input  to  PNUTGRO.   For  daily  rainfall,  load  cell  data  from 
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the  lysimeters  were  used  instead  of  rain  data  received  from 
AWARDS . 

Results  and  Discussion 

To  develop  the  knowledge  base  for  sensor  diagnostics 
and  programs  to  adjust  model  parameters,  pertinent  data  were 
extracted  from  field  data  sets  for  analysis.   Load  cell  data 
(from  which  ET  was  derived)  and  soil  water  sensor  data  over 
selected  days  were  plotted  using  a  spreadsheet  and  analyzed. 
Evapotranspiration  Data 

Figure  4-8  illustrates  modeled  and  measured  ET  rates 
over  the  peanut  growing  season  modeled  by  PNUTGRO.   Figure 
4-9  illustrates  cumulative  ET  over  the  same  period. 
Measured  values  indicate  the  average  readings  from  load  cell 
data  of  both  lysimeters. 

Over  most  of  the  season,  modeled  ET  tracked  measured  ET 
quite  well  although  modeled  rates  were  lower  over  most  of 
the  season.   Measured  ET  was  473  mm  and  modeled  ET  was  420 
mm  over  the  season  as  indicated  in  Figure  4-9.   Figure  4-8 
indicates  that  differences  were  much  more  pronounced  over 
some  periods  than  others.   These  differences  could  be  of 
significance  if  parameter  adjustment  routines  are  developed 
using  data  from  these  periods. 

Figure  4-8  indicates  a  very  high  measured  ET  on  August 
31  (day  244)  which  was  more  than  twice  the  magnitude  of  the 
next  highest  level  recorded.   The  spreadsheet  data  were 
analyzed  to  determine  if  both  lysimeters  registered  the  same 
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value  or  if  this  anomaly  could  be  attributed  to  one  or  more 
faulty  load  cells.   Both  lysimeters  indicated  almost 
identically  high  values  and  all  load  cells  followed  expected 
drying  trends.   The  aberration  cannot  be  easily  explained, 
but  some  reasons  for  it  can  be  hypothesized. 

Cursory  examination  of  the  AWARDS  hourly  weather  files 
for  day  244  indicated  that  the  average  relative  humidity 
from  2  to  7  pi  was  46  percent,  quite  a  low  value  after  high 
intensity  rains  the  day  before.   This  compares  with  a  value 
of  61  percent  on  day  246,  for  example,  another  typical  day 
with  no  rain.   Wind  speed  and  air  temperature  (measured  from 
AWARDS)  were  also  higher  on  day  244.   Trends  seen  here  also 
indicate  that  sensible  heat  may  have  been  transported  to  the 
lysimeters  to  provide  additional  energy  for  evaporation. 
The  lysimeters  were  exposed,  so  the  entire  crop  could 
readily  absorb  that  energy.   In  summary,  factors  such  as 
exposed  lysimeters,  high  air  temperatures,  a  cool  crop,  high 
winds,  and  an  increased  vapor  pressure  deficit  may  have 
created  favorable  conditions  for  the  substantial  ET  on  day 
244. 

Although  this  was  not  done,  air  temperature  could  have 
been  measured  at  the  lysimeters  and  an  infrared  thermometer 
would  have  indicated  the  actual  canopy  temperature.   This 
would  have  provided  additional  information  on  the  magnitude 
of  sensible  heat  advection. 


120 
Soil  Water  Sensor  Data 

To  develop  the  PNUTGRO  parameter  adjustment  routines, 
soil  water  suction  data  that  indicated  significant  drying 
were  extracted  from  the  data  set.   Periods  indicating 
significant  drying  over  several  days  are  shown  in  Figures  4- 
10  through  4-15.   Figures  4-10  through  4-12  illustrate 
drying  trends  from  sensors  at  the  north  lysimeter  from  July 
27  through  July  31,  1988.   Figures  4-13  through  4-15 
illustrate  drying  trends  from  sensors  at  the  north  lysimeter 
(lys  1)  and  the  south  lysimeter  (lys  2)  from  August  20 
through  August  24,  1988.   Sensor  data  for  September  13 
through  September  26,  1988  are  illustrated  in  Figures  4-16 
through  4-19.   The  September  data  were  characterized  by  many 
short  term  drying  and  low  intensity  rain  events. 

Suction  readings  at  the  north  lysimeter  8  cm  depth 
(Figure  4-10)  for  July  indicate  the  rate  of  water  use  was 
slightly  greater  at  position  8/15  (8  cm  deep/15  cm  offset 
from  row  center)  than  at  the  center  of  the  row.  Similar 
trends  occurred  at  the  20  cm  depth  as  indicated  in  Figure  4- 
11.   Although  sensors  at  the  40  cm  depth  (Figure  4-12)  also 
appeared  to  follow  the  same  trend,  readings  taken  were  below 
the  lower  calibrated  limit  (10  kPa)  of  the  sensor.   Accuracy 
of  the  suction  values  shown  at  the  40  cm  depth  are,  there- 
fore, questionable  although  a  drying  trend  was  observed. 
Information  from  out  of  range  readings  can  still  be  useful 
to  determine  whether  water  use  is  occurring  in  a  soil  zone. 
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The  August  plots  for  both  lysimeters  (Figures  4-13 
through  4-15)  indicated  more  water  use  occurring  in  the  row 
rather  than  offset  from  the  row.   Old  roots  that  fanned 
outward  earlier  in  the  season  may  have  ceased  to  be  active 
favoring  new  roots  migrating  downward. 

The  September  plots  (Figures  4-16  through  4-19) 
indicated  yet  another  reversal  in  water  use  patterns.   New 
roots  appeared  to  expand  laterally  once  more  as  indicated  by 
the  higher  uptake  registered  by  sensors  at  8/15  and  20/15. 
This  may  have  occurred  in  response  to  frequent  rain  events. 

Sensor  responses  to  precipitation  were  different  than 
responses  to  irrigation.   Figure  4-20  illustrates  water 
applications  occurring  in  September.   Many  shallow  sensors 
at  lysimeter  2  responded  to  small  rain  events  while  sensors 
at  lysimeter  1  did  not  (Figures  4-16  and  4-17) .   Many 
factors  could  explain  this.   If  sensors  for  both  lysimeters 
were  placed  properly  at  the  same  depths,  puddling  might  have 
occurred  at  the  sensor  station  in  lysimeter  2.   Also,  some 
sensors  may  not  have  been  packed  properly  in  the  soil  (as 
evidenced  by  the  quick  wetting  response  of  sensor  20/0  at 
lysimeter  2,  Figure  4-17).   A  poorly  packed  sensor  might 
have  allowed  water  to  find  a  direct  path  to  the  sensor 
through  fissures.   If  soil  characteristics  were  very 
different,  the  same  amount  of  water  applied  would  penetrate 
to  different  depths.   This  was  not  seen  to  be  likely  in  this 
case,  however. 
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Summary 
Peanuts  were  grown  in  two  weighing  lysimeters  to 
develop  criteria  for  parameter  adjustments  to  PNUTGRO.   A 
data  acquisition  system  built  around  the  IEEE-488  bus  was 
used  to  take  load  cell  and  soil  temperature  data.   The 
lysimeters  were  calibrated  and  peanuts  were  planted. 
Peanuts  were  managed  to  control  disease  and  the  lysimeters 
were  purged  of  water  after  significant  rain  events.   Soil 
water  sensors  in  each  lysimeter  were  also  read  and  their 
readings  were  compensated  for  temperature  effects.   Weather 
data  were  downloaded  from  the  VAX  mainframe  to  construct  the 
weather  input  file  for  PNUTGRO. 

Lysimeter  data  indicated  differences  between  modeled 
and  measured  ET  rates  throughout  the  season.   Sensor 
responses  to  drying  indicated  locations  of  root  activity. 
Sensor  responses  also  indicated  depths  of  rain  and 
irrigation  water  penetration. 
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Table  4-1.  Thermocouple  depths  at  each  lysimeter 

Station       Thermocouple  Depth 

Position  (cm) 

B,C             1  "~0 

2  1 

3  2 

4  4 

5  8  * 

6  20  * 


A,D 

7 

40    * 

8 

50 

9 

60    * 

10 

90    * 

*  soil  water  sensor  depths 
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TO  ALL  LOAD  CELLS  (8) 


Figure  4-1.  Field  instrumentation  for  determination 
of  soil  water  balance. 
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Figure  4-2.  Load  cell  calibration  for  north  lysimeter. 


126 
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Figure  4-3.  Load  cell  calibration  for  south  lysimeter. 
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B,C  -  Thermocouples  0-20  cm  deep 
A,D  -  Thermocouples  40-90  cm  deep 


Figure  4-4.  Lysimeter  row  spacings,  thermocouple 
and  soil  water  sensor  locations. 
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90  cm 


Figure  4-5.  Soil  water  sensor  placements  in  root  zone. 
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*  temperature  set  to  75  deg  F 


Figure  4-6.  Meter  reading  vs.  sensor  resistance  for 
Watermark  3  0KTC  meter. 
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10  '   THIS  PROGRAM  READS  DATA  FROM  TWO  WEIGHING  LYSIMETERS 

15  ■   AT  SET  INTERVALS. 

30  ■ 

40  ■  ***   PROGRAM  INITIALIZATION  **** 

50  CLS 

60  DIM  RADO(15),  AVG(120) 

61  ■ 

62  ■        ***  ZERO  OUT  NET  RAD  AVERAGING  BUFFER  *** 

63  ' 

64  FOR  1=  1  TO  118 

65  AVG(I)=0 

66  NEXT  I 

67  ' 

68  '        ***  INITIALIZE  VARIABLES  AND  COUNTERS  *** 

69  ' 

70  ISET  =  1 
80  IAVG=0 
90  SUM  =  0 
100  L=l 
105  ' 

110  INPUT  "SET  THE  CURRENT  DATE  MM-DD-YY   " , DAT$ 

120  DATE$=DAT$ 

13  0  PRINT  ■"' 

140  INPUT  "SET  THE  CURRENT  TIME  HH:MM   ",TIM$ 

150  TIME$=TIM$ 

160  DEF  SEG  =  &HC000  'STARTING  SEGMENT  OF  ROM  CALL 

170  CMD$  =  "SYSCON  MAD=6,  CIC=1,  NOB=l,  BAO  =  &H300" 

180  IE488  =  0 

190  A%=0:FLG%=0:BRD%=0 

200  CALL  IE488  (CMD$,  A% ,  FLG%,  BRD%)  'INITIALIZE  SYSTEM 

210  IF  FLG%  <>  0  THEN  PRINT 

"INSTALLATION  ERROR,  CODE  =" ;HEX$ (FLG%)  :  END 

220  ' 

230  '  ***  CONFIGURE  INSTRUMENTS  *** 

240  ' 

250  CMD$  =  "CONFIG  TALK=1 , LISTEN=1, 3" :GOSUB  1410 

260  ' 

270  ■  ***  SET  INSTRUMENTS  TO  REMOTE  OPERATION  *** 

280  ' 

290  CMD$  -  "REMOTE  l":GOSUB  1410 

300  CMD$  =  "REMOTE  3":GOSUB  1410 

310  ■ 

320  '  ***  OUTPUT  DVM  CONFIGURATION  *** 

330  ' 

340  CMD$  =  "OUTPUT  1[$+]" 

350  A$  =  "VR7D5T1I1,":G0SUB  1410 

355  'DC,AUTORANGE, 2 0/SEC, LOCKOUT 

Figure  4-7.  BASIC  computer  program  to  read  load  cells, 
thermocouples,  and  net  radiometers. 
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380  ' 

390  ' 

400  BEGTIM  =  TIMER 

410  BEGTIM2=  TIMER 

420  WAITIM  = 

430  WAITIM2= 

435 

440  DELTIM  = 

450  DELTIM2=  TIMER 

460  IF  DELTIM 

470  IF  DELTIM2 


***  BEGIN  POLLING  *** 


5 
1800 


'SET  INTERVAL  FOR  READING  RADIOMETERS 
'SET  INTERVAL  FOR  READING  TEMPS,  LOAD 
'CELLS 
TIMER  -  BEGTIM 
BEGTIM2 
0  THEN  DELTIM  =  86400!  +  DELTIM 
<  0  THEN  DELTIM2  =  86400!  +  DELTIM2 


480  IF  DELTIM  >  WAITIM  THEN  GOSUB  1250 
485 

IF  DELTIM2  >  WAITIM2  THEN  GOSUB  54  0 


•GO  READ  RADIATION 

■DATA 

•GO  READ  LOAD  CELL, 

'TEMP  DATA 


490 

495 

500  GOTO  440 

510  ' 

520  '  ***  AVERAGE  59  RADIATION  READINGS  OVER  INTERVAL  *** 

530  ' 

540  SUM  =  0 

550  SUM2  =  0 

560  FOR  I  =  1  TO 

570  IF  AVG(I)  <> 

575 

580  SUM  =  SUM 


118  STEP  2 

0  THEN  IAVG=IAVG+1    'IF  COUNTS  ARE  MISSED 
'  DONT  INCREMENT  DIVISOR 
AVG(I) 


SUM2+  AVG(I+1) 


590  SUM2= 

600  NEXT 

610  RAD1  =  SUM/IAVG 

620  RAD2  =  SUM2/IAVG 

63  0  PRINT  IAVG,RAD1,RAD2 

640  OPEN  "A:LYS.DAT"  FOR  APPEND  AS  #1 

650  OPEN  "ArTEMP.DAT"  FOR  APPEND  AS  #2 

660  OPEN  "A:RAD.DAT"  FOR  APPEND  AS  #3 

670  PRINT  #1,DATE$ 

680  PRINT  #2, DATE$ 

690  PRINT  #3,DATE$ 

7  00  CLOSE 

710  '  ***  STORE  NET  RADIATION  VALUES  *** 

720  ' 

730  OPEN  "A:RAD.DAT"  FOR  APPEND  AS  #3 

740  PRINT  #3,TIME$;716;RAD1 

750  PRINT  #3,TIME$;717;RAD2 

760  CLOSE  #3 

762  '  ***  ZERO  OUT  AVERAGING  BUFFER  *** 

763  ■ 

764  FOR  1=  1  TO  118 

765  AVG(I)=0 

766  NEXT  I 
770  ' 


Figure  4-7. 


continued. 
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780  '       ***  RETRIEVE  LOAD  CELL  AND  TEMP  DATA  *** 

790  ' 

800  ICHAN  =0 

810  TEMPFLG$  =  "FALSE" 

820  IF  (ICHAN  >  59)  THEN  BEGTIM2=TIMER: CLOSE 

#2 : L=l : IAVG=0 : RETURN 
830  'IF  ALL  CHANNELS  READ,  CLOSE  FILE,  RETURN 

84  0  IF  (ICHAN  =  16)  THEN 

ICHAN  =  20:TEMPFLG$=  "TRUE":CLOSE  #1 
850  ILYS=  700+  ICHAN 
860  CMD$  =  "OUTPUT  3[$+]" 

870  A$=STR$( ICHAN) +",":GOSUB  1410      'SELECT  CHANNEL 
880  CMD$  =  "TRIGGER  l":GOSUB  1410      'TRIGGER  DVM 
890  A$  =  SPACE$(25)  'CLEAR  DATA  STRING  BUFFER 

900  CMD$  =  "ENTER  1 [ $, 0, 18 ] " :GOSUB  1410   'READ  DATA  FROM  DVM 
910  IF  TEMPFLG$  =  "TRUE"  THEN  GOTO  1050   'READ  TEMP  DATA 
920  CELL  =  VAL  (A$) 

930  PRINT  "TIME   ";TIME$,"  CHANNEL" ;ILYS , "  VOLTAGE  ";CELL 
940  ' 

950  •  ***  STORE  LOAD  CELL  DATA  *** 

960  ' 

970  OPEN  "A:LYS.DAT"  FOR  APPEND  AS  #1 
980  PRINT  #1,TIME$;ILYS;CELL 
990  ICHAN  =  ICHAN  +1 
1000  CLOSE  #1 
1010  GOTO  820 
1020  ' 

1030  ■  ***  RETRIEVE  TEMPERATURE  DATA  *** 

1040  ■ 

1050  TEMPI  =  VAL(A$) 

1060  A$  =  "R"  'SELECT  REFERENCE  JUNCTION 

1070  CMD$  =  "OUTPUT  3[$+]":GOSUB  1410   'OUTPUT  COMMAND  TO 
1075  'SCANNER 

1080  CMD$  =  "TRIGGER  1"  :GOSUB  1410     'TRIGGER  DVM 
1090  A$  =  SPACES  (25) 

1100  CMD$  =  "ENTER  1 [$, 0, 18 ] " :GOSUB  1410  'READ  REFERENCE 
1105  'VOLTAGE 

1110  TEMP2=  VAL(A$) 

1120  TEMP  =  1000!*  TEMPI/. 0375+  (250. 17-417 . 54*TEMP2) 
112  5  'CALC  TEMPERATURE 

1130  PRINT  "TIME   ";TIME$,"  CHANNEL" ; ILYS, 

"  TEMPERATURE"; TEMP 
1140  ' 


Figure  4-7. —  continued. 
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1150  '  ***  STORE  TEMPERATURE  DATA  *** 

1160  • 

1170  OPEN  "A: TEMP. DAT"  FOR  APPEND  AS  #2 

1180  PRINT  #2,TIME$;ILYS;TEMP 

1190  CLOSE  #2 

12  00  ICHAN  =  ICHAN+1 
1210  GOTO  820 

1247  '  ***  READ  RADIATION  DATA  FOR  AVERAGING  OVER  30  SEC  *** 

1248  ' 

1250  ICHAN  =  16 

1260  IF  (ICHAN  >  17)  THEN  BEGTIM  =  TIMER:RETURN 

1270  CMD$  =  "OUTPUT  3[$+]" 

1280  A$=STR$ (ICHAN) +",":GOSUB  1410     "SELECT  CHANNEL 

1290  CMD$  =  "TRIGGER  l":GOSUB  1410     'TRIGGER  DVM 

1300  A$  =  SPACE$(25)  'CLEAR  DATA  STRING  BUFFER 

1310  CMD$  =  "ENTER  1 [$, 0, 18] " :GOSUB  1410   'READ  DATA  FROM 

1315  'DVM 

13  2  0  RADO(ISET)  =  VAL  (A$) 
1330  PRINT  TIME$,RADO(ISET) ,L 

1340  IF  ISET  =  12  THEN  BEGTIM=  TIMER: GOSUB  1470 

1350  •  IF  6  VALUES  FOR  EACH  RAD  ARE  READ  THEN 

1355  '  AVERAGE  THEM  OVER  30  SEC 

1360  ISET  =  ISET  +1 

1370  ICHAN  =  ICHAN  +  1 

1380  GOTO  1260 

1390  '  ***  SEND  COMMANDS  TO  IE488  *** 

1400  • 

1410  CALL  IE488  (CMD$,  AS,  FLG% ,  BRD%) 

1420  IF  FLG%  <>  0  THEN 

PRINT  "IB  ENTRY  ERROR" ;HEX$ (FLG%) , "  at  " , CMD$ : END 

14  3  0  RETURN 
1440  ■ 

1450  '**  AVERAGE  VALUES  FOR  EACH  RADIOMETER  OVER  30  SEC  ** 

1460  ' 

1470  SUM=0 

1480  SUM2=0 

1490  FOR  I  =  1  TO  12  STEP  2 

1500  SUM  =  SUM  +  RADO(I) 

1510  SUM2=  SUM2+  RADO(I+l) 

1520  NEXT  I 

1530  AVG(L)=  SUM/6 

1540  AVG(L+1)=  SUM2/6 

1550  ISET  =0  '  RESET  5  SECOND  INTERVAL  COUNTER 

1560  L=  L+2   '  INCREMENT  30  SEC  INTERVAL  COUNTER 

1565  •  FOR  EACH  CELL 

1570  RETURN 


Figure  4-7. —  continued. 
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Figure  4-8. 


Comparison  of  measured  and  modeled  ET 
rates  over  peanut  growing  season. 
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Figure  4-9.  Comparison  of  measured  and  modeled  cumulative 
ET  over  peanut  growing  season. 
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Figure  4-10.  Sensor  suction  at  8  cm  depth  from  July  27 
to  July  31,  1988  in  north  lysimeter. 
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Figure  4-11.  Sensor  suction  at  20  cm  depth  from  July 
27  to  July  31,  1988  in  north  lysimeter. 
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Figure  4-12.  Sensor  suction  at  40  cm  depth  from  July 
27  to  July  31,  1988  in  north  lysimeter. 
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Figure  4-13.  Sensor  suction  at  8  cm  depth  from  August 
20  to  August  24,  1988  in  both  lysimeters. 
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Figure  4-14.    Sensor  suction  at   20   cm  depth   from  August 
20  to  August   24,    1988   in  both  lysimeters. 
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Figure  4-15.  Sensor  suction  at  40  cm  depth  from  August 
20  to  August  24,  1988  in  both  lysimeters. 
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Figure  4-16.  Sensor  suction  at  8  cm  depth  from 
September  13  to  September  26,  1988 
in  both  lysimeters. 
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Figure  4-17.  Sensor  suction  at  20  cm  depth  from 
September  13  to  September  26,  1988 
in  both  lysimeters. 
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Figure  4-18.  Sensor  suction  at  40  cm  depth  from 
September  13  to  September  26,  1988 
in  both  lysimeters. 
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Figure  4-19.  Sensor  suction  at  60  cm  depth  from 
September  13  to  September  26,  1988 
in  both  lysimeters. 
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Figure  4-20.  Lysimeter  water  applications  from 
September  13  to  September  26,  1988. 


CHAPTER  V 

SOIL  WATER  SENSOR  RESPONSES  TO 

WETTING  AND  DRYING 

Introduction 

If  a  soil  water  sensor  is  to  be  used  to  indicate  water 
use  in  a  specified  period,  its  time  response  to  drying  must 
be  known.   This  is  very  important  if  sensor  readings  are  to 
provide  feedback  to  a  water  balance  simulation.   Most  types 
of  soil  water  sensors  have  inherent  response  time  lags 
associated  with  them,  depending  on  their  physical  properties 
and  degree  of  contact  with  the  soil.   If  the  response  time 
to  drying  has  been  determined  over  the  proper  range  of  water 
contents,  readings  can  be  corrected  to  reflect  actual  water 
use  over  the  period  of  interest. 

As  has  been  stated,  soil  water  sensors  can  also 
indicate  depth  of  irrigation  water  penetration  after 
irrigation.   This  information  is  useful  in  determining 
whether  to  adjust  irrigation  amounts  on  the  next  cycle.   To 
apply  this  feedback  properly,  the  sensor's  time  response  to 
wetting  must  be  known. 

Literature  Review 

The  soil  water  sensor  chosen  for  this  study  was  the 
Watermark  Model  200  (Larson,  1987) .   PNUTGRO,  the  crop 
growth  model  chosen  for  this  study,  predicts  water  contents 
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in  the  soil  zone  on  a  daily  basis,  so  the  sensor  need  only 
respond  more  quickly  than  one  day.   Soil  water  sensors  in 
field  use  may  be  read  in  the  morning  if  a  representation  of 
the  previous  day's  water  use  is  desired.   For  irrigation 
scheduling  purposes,  ET  is  usually  assumed  to  be  negligible 
during  the  evening  and  the  sensor  will  show  a  peak  reading 
displaced  forward  in  time  by  its  response  lag.   A  morning 
reading  also  accounts  for  soil  water  re-distribution  which 
may  have  occurred  during  the  evening. 

In  one  field  study,  Thomson  et  al.  (1982)  found 
significant  diurnal  fluctuations  in  soil  water  suction 
registered  by  tensiometers.   The  authors  attributed  evening 
decreases  in  suction  to  upward  flow  of  soil  water  from  a 
shallow  water  table.   The  authors  indicated  that  use  of 
morning  readings  to  schedule  irrigation  was  good  practice 
for  low  frequency  systems  since  water  replenishment  in  the 
root  zone  could  be  accounted  for. 

Phene  et  al.  (1981)  attempted  to  quantify  response  time 
for  their  heat  pulse  sensor.   The  authors  pointed  out  that 
pressure  potentials  in  soil  change  in  a  continuous  rather 
than  the  discontinuous  mode  represented  by  the  step  change. 
The  authors  therefore  surmised  that  the  sensor  should 
respond  rapidly  to  continuous  changes  caused  by  sinks  and 
sources  if  there  was  intimate  contact  between  the  sensor  and 
soil. 
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Previous  field  studies  have  indicated  that  the 
Watermark  sensor  has  a  response  time  on  the  order  of  a  few 
hours,  but  this  has  not  been  substantiated  with  data.   If 
the  sensor's  drying  response  was  less  than  one  day,  it  would 
be  suitable  for  use  as  a  feedback  element  to  the  PNUTGRO 
crop  model. 

Very  little  is  known  about  the  Watermark  sensor's 
response  time  to  wetting.   The  sensor's  response  time  to 
wetting  could  be  useful  to  determine  its  suitability  as  a 
feedback  element  for  high  frequency  irrigation.   If  the 
sensor  can  respond  quickly  to  wetting,  an  irrigation  system 
can  be  shut  down  before  water  has  a  chance  to  penetrate  too 
deeply. 

Objectives 

Tests  were  conducted  to  determine  both  wetting  and 
drying  responses  of  the  Watermark  Model  200  soil  moisture 
sensor.   Specific  objectives  were: 

1.  to  determine  the  time  response  to  the  arrival 
of  a  wetting  front,  and 

2 .  to  determine  the  time  response  to  drying  over 
several  ranges  of  water  content. 

Experimental  Procedures 
Sensor  Response  to  Wetting 

Two  separate  tests  were  conducted  to  determine  the 
Watermark  sensor's  time  response  to  a  sudden  wetting.   The 
laboratory  apparatus  is  illustrated  in  Figure  5-1.   One  air- 
dry  sensor  was  placed  in  the  center  of  a  30  cm  diameter 
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bucket  filled  to  a  depth  of  15  cm  with  a  Millhopper  sand. 
Electrodes  consisting  of  stiff  pieces  of  insulated  wire  with 
0.5  cm  of  the  ends  exposed  were  placed  on  each  side  of  the 
sensor.   The  exposed  ends  were  placed  at  the  mid-point  of 
the  sensor  as  shown.   The  electrodes  were  connected  to  a 
moisture  detection  circuit  illustrated  in  Figure  5-2.   A 
lighted  LED  indicated  the  arrival  of  the  wetting  front  to 
the  level  of  the  exposed  ends  of  the  electrodes.   A 
Watermark  Model  3  0KTC  meter  was  used  to  read  the  sensor. 

For  the  first  test,  water  was  poured  into  the  bucket 
and  a  stopwatch  was  activated.   When  the  LED  lit,  indicating 
the  arrival  of  the  wetting  front,  the  elapsed  time  was 
noted.   The  test  continued  until  the  Watermark  meter  read 
zero  indicating  saturation.   The  elapsed  time  for  this  event 
was  also  noted  and  recorded.   The  test  was  conducted  three 
times  with  three  different  sensors. 

For  the  second  test,  an  air-dry  sensor  was  placed  in  a 
bucket  of  a  saturated  Millhopper  sand  and  the  time  response 
was  monitored.   The  laboratory  apparatus  for  this  test  is 
illustrated  in  Figure  5-3 .   The  sensor  was  connected  to  an 
interface  circuit  (Thomson  and  Armstrong,  1987) .   This 
interface  can  be  connected  to  a  voltmeter  to  allow  manual 
readings.   The  interface  can  also  be  connected  directly  to 
data-loggers  and  analog  input  boards.   The  output  of  the 
interface  is  an  analog  voltage  that  can  be  converted  to  soil 
water  suction  by  equations  presented  by  Thomson  and 
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Armstrong  (1987).   A  Campbell  Scientific  CR-10  micro-logger 
was  programmed  to  read  the  output  of  the  interface  every  0.5 
sec.  and  store  the  voltage  reading.   A  voltmeter  was  also 
connected  to  the  interface  to  aid  in  the  determination  of 
when  to  stop  taking  data. 

To  begin  the  test,  an  air  dry  sensor  was  forced  into 
the  saturated  soil  and  the  CR-10  was  activated.   Data  were 
taken  until  the  voltmeter  indicated  a  stable  low  voltage 
indicating  saturated  conditions.   The  data  were  dumped  to  an 
IBM  PC  disk  file  for  analysis. 
Sensor  Response  To  Drying 

Alternative  methods  of  performing  a  drying  test  were 
considered.   It  was  desired  to  simulate  a  field  condition  of 
drying  as  closely  as  possible  with  a  laboratory  apparatus. 
A  Soil  Moisture  Equipment  pressure  plate  apparatus  was 
chosen  to  implement  testing  because  it  permitted  user 
control  of  operating  pressures.   For  this  study,  eleven 
plastic  rings  6.5  cm  diameter  were  placed  on  a  3  bar 
pressure  plate  that  had  been  saturated  as  illustrated  in 
Figure  5-5.   A  small  amount  of  Millhopper  sand  was  placed  in 
each  ring  and  a  Watermark  sensor  was  placed  on  top.   Each 
ring  was  then  filled  to  the  same  level  with  soil.   The 
system  was  back-siphoned  so  water  would  saturate  the 
pressure  plate  and  the  soil  in  each  ring.   After  saturation, 
the  initial  soil  water  potential  readings  were  taken  along 
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with  ambient  temperature.   The  system  was  then  sealed  and 
the  pressure  was  brought  to  the  first  desired  value. 

Three  soil  moisture  sensors  were  assigned  to  be  read. 
The  remaining  eight  rings  contained  "dummy"  sensors.   The 
soil  in  each  of  seven  of  the  eight  remaining  rings  was  dried 
at  a  specified  interval  after  the  system  was  sealed  and 
pressure  was  applied.   At  each  interval,  the  three  soil 
water  sensors  were  also  read  and  temperature  in  the 
apparatus  was  recorded.   In  this  way,  the  response  time  of 
the  sensor  could  be  compared  to  the  response  time  of  the 
soil  as  the  system  reached  equilibrium. 

Physical  constraints  limited  the  allowed  soil  samples 
to  seven  since  it  was  desired  to  always  have  at  least  three 
readings  from  the  soil  moisture  sensors.   Thus,  it  was  very 
important  that  the  seven  readings  be  taken  at  intervals 
yielding  the  most  information.   Initial  tests  were  conducted 
at  intervals  spaced  relatively  far  apart  so  the  proper  point 
to  begin  taking  data  and  a  range  of  intervals  could  be 
narrowed  down.   This  was  done  because  the  system  response 
time  was  not  known.   Once  intervals  were  chosen,  the 
pressure  apparatus  was  re-initialized  and  test  data  were 
taken. 

For  the  initial  test,  the  pressure  was  set  to  13  kPa 
from  an  initial  state  of  saturation.   Soil  samples  were 
taken  every  4  hours  commencing  13  hours  after  the  system  was 
started.   The  pressure  was  released  when  soil  samples  were 
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taken.   Results  of  the  test  are  illustrated  in  Figure  5-6. 
The  same  test  was  then  conducted  after  raising  the  pressure 
to  24  kPa  from  an  initial  state  of  15  kPa.   Observations  of 
sensor  responses  were  then  made  at  dryer  soil  conditions. 
The  first  data  point  of  the  13  kPa  test  (Figure  5-6) 
shows  that  at  13  hours  from  the  start,  no  response  from  the 
sensor  was  indicated.   However,  a  significant  soil  response 
was  indicated.   It  was  surmised  that  the  soil  was  still  too 
wet  to  register  a  response  from  the  sensor.   The  sensor  was 
designed  to  work  only  at  potentials  lower  than  (or  suctions 
higher  than)  10  kPa  (Larson,  1987).   It  is  possible  that 
water  was  not  being  released  from  the  sensor  at  the  suction 
which  corresponds  to  the  water  content  at  the  first  data 
point.   A  test  was  therefore  conducted  to  determine  if  the 
sensor  could  register  a  readable  response  at  a  suction  below 
10  kPa.   The  apparatus  was  re-saturated  and  equilibrated  at 
7  kPa.   The  value  of  7  kPa  was  chosen  as  an  approximate 
correspondence  to  the  water  content  at  the  first  data  point 
of  Figure  5-6.   The  water  content,  determined  gravimetric- 
ally,  was  indeed  very  close  to  the  value  at  the  first  data 
point  of  Figure  5-6.   The  soil  water  sensors  never  did 
indicate  a  response  at  this  suction.   This  supported  the 
theory  that  part  of  the  early  lag  in  sensor  response  was  due 
to  the  soil  being  too  wet. 
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Soil  moisture  characteristic  curve 

To  develop  response  time  curves  from  the  drying  tests 
at  pressures  of  13  and  2  4  kPa,  a  soil  characteristic  curve 
was  developed  over  a  limited  range  of  suctions.   These 
suctions  correspond  to  pressure  settings  7,  13,  and  2  4  kPa 
for  the  drying  tests  already  conducted.   Data  for  the 
characteristic  curve  were  taken  from  soil  samples  in  the 
last  remaining  ring  on  the  pressure  plate.   The  soil  was 
divided  into  three  sub-samples  and  dried  when  the  system 
reached  equilibrium.   Sub-samples  were  taken  after  the  soil 
water  sensors  in  three  rings  failed  to  show  a  reading 
increase  for  two  consecutive  days.   The  sub-samples  were 
dried  and  weighed  to  obtain  the  water  content  on  a  weight 
basis.   The  resulting  water  contents  were  multiplied  by  the 
bulk  density  already  obtained  for  the  soil  to  obtain  water 
content  on  a  volume  basis. 

Results  and  Discussion 
Sensor  Respon.se  to  Wetting 

Results  of  the  wetting  response  test  using  the 
apparatus  of  Figure  5-1  are  shown  in  Table  5-1.   Results  of 
the  step-change  wetting  response  test  (Figure  5-3)  for  a 
representative  sensor  are  illustrated  in  Figure  5-4.   Both 
tests  clearly  indicate  a  rapid  response  to  wetting.   Table 
5-1  illustrates  that  after  the  wetting  front  arrived  at  the 
sensor's  mid-point,  an  average  of  24  seconds  elapsed  before 
the  sensor  produced  an  output  indicating  saturation.   Figure 
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5-4  indicates  that  a  sensor  took  about  60  seconds  to 
indicate  a  saturated  condition  after  being  introduced  to  the 
soil. 

Tests  indicated  the  Watermark  sensor  responded  very 
quickly  to  a  wetting  front.   The  sensor  could  be  used  as  a 
trigger  to  de-activate  an  irrigation  system  since  the  very 
fast  wetting  response  could  keep  deep  percolation  to  a 
minimum,   since  some  infiltration  occurs  after  the 
irrigation  system  is  de-activated,  a  user  could  install  this 
sensor  slightly  above  the  bottom  of  the  water  regulation 
zone. 
Sensor  Rpspnnse  to  Drying 

Figure  5-6  illustrates  the  sensor  and  soil  responses  to 
drying  from  saturation  to  13  kPa  and  from  15  to  24  kPa. 
Corresponding  data  are  shown  in  Tables  5-2  and  5-3.  Values 
shown  are  an  average  of  3  weighings  and  3  sensor  readings. 
The  water  content  readings  of  Figure  5-6  were  used  with  the 
characteristic  curve  of  Figure  5-7  to  obtain  a  comparison  of 
the  actual  soil  water  suction  to  that  read  with  the  sensors. 
Plots  of  these  comparisons  for  the  13  kPa  and  24  kPa  tests 
are  shown  in  Figure  5-8. 

The  test  from  saturation  to  13  kPa  of  Figure  5-8 
indicates  a  response  time  lag  of  4  hours  at  the  21  hour 
sensor  reading.   The  suction  value  represented  was  within 
the  sensor's  working  range.   A  smooth  curve  for  actual  soil 
water  suction  over  the  entire  period  could  not  be  obtained 
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from  the  data,  however.   The  suction  calculated  at  21  hours 
from  the  water  content  (Figure  5-6)  using  the  characteristic 
curve  of  Figure  5-7  was  lower  than  the  previous  value.   Each 
of  the  three  sub-samples  (that  were  averaged  together  to 
obtain  the  value  of  water  content)  were  checked  to  see  if 
any  one  of  them  could  have  biased  the  average  significantly. 
All  values  at  that  time  were  very  close  to  each  other, 
however.   If  a  smooth  curve  is  drawn  bypassing  the  actual 
soil  water  suction  at  21  hours  (as  represented  by  the  dotted 
line  in  Figure  5-8) ,  the  sensor  response  time  is  6  hours.  If 
a  curve  is  drawn  to  the  actual  value  of  soil  water  suction, 
however,  the  response  time  is  much  less  than  6  hours. 
The  bottom  plot  of  Figure  5-8  indicates  a  drying 
response  test  from  15  to  24  kPa.   Although  the  sensor  seemed 
to  track  the  soil  very  closely  at  the  beginning,  two  values 
of  actual  soil  water  suction  at  5  and  7.6  hours  showed 
irregularities.   These  irregularities  could  be  the  result  of 
experimental  error  obtained  from  reading  very  small 
differences  in  water  content.   Differences  in  water  retained 
by  the  soil  between  these  suctions  were  very  small  and  small 
experimental  errors  could  translate  into  large  suction 
differences. 

The  drying  response  test  indicated  sensor  response 
times  up  to  6  hours  over  the  suction  ranges  tested.   Much  of 
the  data  was  inconclusive,  however,  because  of  great 
sensitivities  to  experimental  error  in  some  ranges  of  water 
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content.   More  samples  and  multiple  experiments  might  have 
improved  precision  in  some  of  the  trials. 

If  results  from  this  experiment  were  used  in 
conjunction  with  field  studies,  more  confidence  could  be 
gained  regarding  drying  response  times.   For  the  field 
experiment  described  in  Chapter  4  using  lysimeters,  soil 
water  sensors  were  read  once  a  day  during  most  of  the 
season.   If  sensors  were  read  more  often  during  drying,  the 
time  a  peak  suction  value  occurred  could  be  noted  and 
compared  to  the  time  that  ET  rates  decreased  significantly. 
A  sensor  response  time  in  that  range  of  suctions  could  be 
noted.   This  information  could  be  valuable  if  the  sensors 
were  used  to  schedule  irrigations  during  periods  less  than 
one  day. 

Summary 
Wetting  and  drying  responses  were  determined  for  the 
Watermark  Model  200  soil  water  sensor  in  the  laboratory. 
Tests  indicated  a  very  fast  response  to  the  movement  of  a 
wetting  front.   Drying  tests  showed  responses  times  up  to  6 
hours.   For  future  tests,  more  soil  samples  could  be  taken 
and  lab  test  results  should  be  coupled  with  results  from 
field  studies. 
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Table  5-1.   Wetting  Response  of  Watermark  Sensors. 

Sensor         Time  for  Arrival         Time  for  Sensor 

of  Wetting  Front         to  Reach  Saturation 
(sec)  (sec) 


Table  5-2. 
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Data  for  sensor  response  to  drying. 
Pressure  apparatus  set  to  13  kPa. 


Time  from  start 
(hours) 


Water  Content 
(cm3/cm3) 


Soil  Water  Suction 
from  Sensors 
(kPa) 
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Table  5-3.   Data  for  sensor  response  to  drying. 
Pressure  apparatus  set  to  24  kPa. 


Time  from  start 
(hours) 


Water  Content 
(cm3/cm3) 


Soil  Water  Suction 
from  Sensors 
(kPa) 


0. 

2. 

5. 

7. 
11. 
25. 


0.100348 
0.094287 
0.093316 
0.085879 
0.085860 
0.085462 


16.7 
20.3 
22.4 
23.9 
25.6 
26.0 
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Figure  5-1.  Experimental  apparatus  for  wetting 
response  test. 


162 


+VCC 


'22K 


8 

LM311 
1,4 


+VCC 


- — v\aa — , 


ELECTRODES 


10K 


+VCC 


'4.7K 


2N2222 


Figure  5-2.  Moisture  detection  circuit. 
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Figure  5-3.   Apparatus   for  step  input  wetting 
response  test. 


164 


CO 
0. 

c 
o 

■*-* 

o 
w 

5 

o 


52  56  60  64 

Time  From  Start  (Sec) 


68 


72 


Figure  5-4.  Sensor  response  to  step  input  wetting. 
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Figure   5-5.    Soil  water  sensors   on  pressure  plate. 
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Figure  5-6. 


System  response  to  drying, 
saturation  to  13  kPa  and 
15  to  24  kPa. 
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Figure  5-7.  Experimentally  derived  soil  water 
suction  vs.  soil  water  content  for 
Millhopper  sand. 
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Figure  5-8 . 


Soil  water  suction  as  a  function 
of  time  —  saturation  to  13  kPa  and 
15  to  24  kPa. 


CHAPTER  VI 

KNOWLEDGE-BASED  SYSTEM  FOR  IRRIGATION 

MANAGEMENT — DEVELOPMENT  AND  TESTING 

Introduction 

A  knowledge-based  system  for  irrigation  management  was 

developed.   It  consists  of  four  parts.   Some  parts  of  the 

system  are  dependent  on  others  and  were  thus  developed 

concurrently.   The  knowledge-based  system  consists  of 

1.  an  expert  system  for  sensor  evaluation, 

2.  data  input,  calculation,  output,  and  irrigation 
scheduling  routines, 

3.  parameter  adjustment  routines  applied  to  PNUTGRO 
input  files,  and 

4.  PNUTGRO  code  modifications  to  accomodate 
parameter  adjustments. 

The  following  describes  the  mechanics  of  the  knowledge- 
based  system  including  data  manipulation  methods  used  to 
augment  the  above  components.   Procedures  used  in  developing 
each  of  the  four  parts  and  details  of  pertinent  components 
follow. 

Knowledge-Based  System — Overview 
A  block  diagram  of  the  knowledge-based  system 
(henceforth  called  KBS)  is  illustrated  in  Figure  6-1.   The 
following  describes  operation  of  the  entire  knowledge-based 
system  and  how  the  components  interact. 
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A  program,  PSTART,  was  written  in  the  VP-Expert  rule 
development  language.   This  program  presents  the  initial 
screen  to  the  user,  calls  data  collection  routines,  and 
calls  a  spreadsheet  macro  to  import  data  for  use  by 
DATRUL_1.   DATRUL_1  contains  rules  which  judge  the  validity 
of  sensor  readings  used  as  feedback  elements  to  the  PNUTGRO 
simulation.   Data  flow  is  accomplished  using  spreadsheet 
macros  and  a  worksheet  file  SENRED.WKS  between  the  decision 
components  of  the  KBS  and  databases.   This  method  of  data 
communication  was  chosen  because  of  the  limitations  of  VP- 
Expert  in  accessing  ASCII  text  or  data  files.   Since  PNUTGRO 
(and  most  other  simulations)  send  data  in  ASCII  format,  a 
method  was  needed  to  access  ASCII  files  from  VP-Expert. 
Also,  data  inputs  entered  by  the  user  and  stored  in  files 
must  be  accessed. 

Many  expert  system  shells  allow  communication  with 
DBASE  type  databases  as  has  been  mentioned.   VP-Expert  can 
also  access  ASCII  text  files  and  has  a  versatile  interface 
with  spreadsheet  files.   Although  VP-Expert  can  read  and 
write  ASCII  data  or  text  directly,  its  capabilities  are 
limited  because  it  reads  one  line  of  data  and  assigns  the 
entire  line's  contents  to  one  variable.   The  data  cannot  be 
sub-divided  and  must  be  used  as  it  is  read.   For  the  present 
structure,  one  data  file  would  be  required  for  every  sensor 
being  read. 
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To  circumvent  these  problems  and  provide  maximum 
versatility  in  data  handling,  a  method  was  chosen  by  which 
the  knowledge  base  calls  a  spreadsheet  macro  that 
automatically  executes  and  loads  appropriate  data  into  a 
worksheet  file.   This  file  is  then  saved.   A  typical  run  of 
the  KBS  is  described  below  to  better  illustrate  program 
flow.   Figure  6-1  accompanies  this  discussion. 

Certain  conventions  should  be  followed  when  tracing 
program  and  data  flow.  In  Figure  6-1,  numbers  indicate  the 
sequence  of  program  and  knowledge  base  calls.   A  number 
after  the  word  "data"  indicates  data  transfer  after  the 
numbered  program  call.   For  example,  "data  1"  indicates  data 
is  transferred  in  or  out  as  a  result  of  a  call  to  program 
FIELDRAW.   Dotted  lines  designate  spreadsheet  macro  calls 
that  manipulate  spreadsheet  data.   Many  data  transfer  lines 
indicate  the  same  numbers  as  other  data  lines.   This  simply 
indicates  that  after  the  program  call,  data  is  transferred 
either  in  or  out  with  no  indication  of  the  transfer 
sequence.   The  sequence  of  data  flow  within  and  between 
programs  and  knowledge  bases  is  discussed  below. 

The  program  PSTART  is  activated  first  from  the  VP- 
Expert  environment.   A  flag  variable  in  an  ASCII  data  file 
is  tested  in  PSTART  to  see  if  the  system  is  being  run  for 
the  first  time.   If  the  system  is  being  run  for  the  first 
time,  the  user  enters  sensor  and  weather  data  manually  via  a 
Pascal  program  FIELDRAW  that  is  called  from  a  DOS  batch  file 
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activated  by  a  PSTART  command.   The  rest  of  the  decision 
system  cannot  be  activated  until  the  next  day's  sensor  data 
have  been  entered  because  all  decisions  made  regarding  the 
suitability  of  sensor  readings  rely  on  changes  in  readings 
from  one  day  to  the  next. 

After  the  sensor  data  are  entered  and  weather  is 
updated,  PSTART  loads  a  worksheet  called  SENRED.WKS  and  a 
macro  that  imports  sensor  data  from  each  data  file  is  run. 
The  user  presses  Alt-A  on  the  keyboard  to  activate  the 
import  macro  and  Alt-S  to  save  the  new  file.   The  macro  can 
handle  up  to  three  sensor  stations.   The  macro  determines 
how  many  files  to  import  based  on  a  variable  imported  from 
the  first  sensor  data  file.   This  variable  had  been  sent  to 
the  sensor  data  file  by  FIELDRAW  after  it  asked  the  user  how 
many  sensor  stations  were  in  the  field. 

After  the  sensor  data  have  been  imported  and  saved  in 
the  spreadsheet,  PSTART  instructs  the  user  to  run  the 
knowledge  base  DATRUL_1  which  analyzes  each  sensor's  reading 
and  judges  its  suitability  as  feedback  to  PNUTGRO.   DATRUL_1 
places  flags  in  appropriate  locations  of  the  SENRED.WKS 
worksheet,  depending  on  decisions  made  regarding  sensor 
readings.   These  flags  are  used  by  a  Pascal  program  SENPOS 
whose  decision  routines  influence  how  feedback  is  applied  to 
PNUTGRO. 

To  help  decide  on  sensor  suitability,  DATRUL_1  asks  the 
user  for  a  judgement  on  the  previous  day's  weather, 
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locations  of  the  sensor  stations  relative  to  each  other,  and 
the  type  of  sensor  used.   The  user  is  informed  if  sensor 
readings  from  one  day  to  the  next  indicate  faulty  sensors  or 
improper  placement.   Recommendations  are  made  if  any  one 
sensor's  reading  is  suspicious.   Flags  are  placed  directly 
into  the  worksheet,  SENRED.WKS  next  to  readings  that  are 
questionable.   Information  the  user  sees  resulting  from  the 
consultation  does  not  always  indicate  bad  readings.   A 
certain  amount  of  variability  is  expected  and  the  user  is 
simply  told  what  might  be  causing  that  variability. 

DATRUL_1  is  run  as  many  times  as  there  are  number  of 
sensors  at  each  station.   The  knowledge  base  keeps  track  of 
how  many  sensors  per  station  have  been  read  by  a  counter 
which  is  imported  from  the  spreadsheet.   This  counter,  was 
originally  placed  in  the  spreadsheet  by  FIELDRAW  as  it 
prompted  the  user  for  the  number  of  sensors  per  station. 
The  user  does  not  need  to  keep  track  of  how  many  sensors 
have  been  evaluated.   The  knowledge  base  prompts  him  if  all 
sensors  have  been  analyzed. 

After  each  run  of  DATRUL_1,  new  sensor  data  must  be 
brought  into  the  spreadsheet  area  that  is  accessed  by  the 
knowledge  base.   At  the  end  of  each  knowledge  base  run,  the 
user  is  prompted  to  run  a  pair  of  spreadsheet  "data  move" 
macros.   The  first  macro  (using  Alt-Z)  places  the  evaluated 
data  (along  with  knowledge  base  generated  flags)  back  to 
their  original  locations  in  the  spreadsheet.   Another  macro 
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(Alt-R)  brings  new  data  to  the  area  accessed  by  the 
spreadsheet.   When  this  is  done,  the  file  is  saved  and  the 
user  is  instructed  to  re-run  the  knowledge  base,  DATRUL_1. 
The  loop  (indicated  by  a  program  call  4)  is  run  as  many 
times  as  there  are  sensors  to  be  read. 

When  all  data  have  been  evaluated,  the  user  is  prompted 
to  run  "compress  and  print"  macros  (Alt-C)  which  format, 
compress,  and  store  the  data  to  an  ASCII  file  to  be  accessed 
by  the  Pascal  program,  SENPOS.   Before  SENPOS  is  run, 
PNUTGRO  is  run  with  the  weather  data  output  by  FIELDRAW. 
Parameters  in  two  other  files  (SPROFILE  and  WRMOD)  are  also 
used  in  the  PNUTGRO  run.   These  parameters  were  changed  as  a 
result  of  the  previous  day's  run  of  SENPOS  and  are  discussed 
later. 

During  a  PNUTGRO  run,  data  are  sent  to  output  files 
0UT2.PN  and  OUT3.PN.   The  data  of  interest  for  use  by  SENPOS 
are  root  length  densities  (in  0UT2.PN)  and  soil  water 
contents  (in  0UT3.PN). 

A  new  PNUTGRO  input  file,  WRMOD,  provides  sensor 
derived  feedback.   WRMOD  contains  root  growth  weighting 
factors  that  are  normally  extracted  from  the  soil 
characteristics  file,  SPROFILE. PN2,  already  a  PNUTGRO  input 
file.   These  factors  are  modified  by  SENPOS  if  the  sensors 
indicate  probable  root  length  distributions  are  signif- 
icantly different  from  modeled  distributions.   To  modify 
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these  parameters  more  easily,  PNUTGRO  was  modified  to  access 
this  new  file  whenever  root  weighting  factors  were  required. 
Parameter  adjustment  routines  in  SENPOS  also  modify  the 
drained  upper  limit  (DUL)  and  lower  limit  soil  water  content 
(LL)  in  the  chosen  data  set  of  SPR0FILE.PN2 .   SPROFILE.PN2 
contains  soil  characteristics  data  for  29  different  soils. 
When  PNUTGRO  is  run,  the  program  automatically  picks  the 
proper  parameter  set  for  the  soil  chosen  and  uses  it  in  soil 
water  calculations. 

During  a  consultation  with  SENPOS,  the  user  is  informed 
of  all  parameter  adjustments  that  might  have  occurred  and 
why  they  occurred.   The  program  also  presents  the  values  of 
key  variables  and  makes  irrigation  recommendations  based  on 
model  results  for  either  a  center  pivot  or  solid  set 
sprinkler  system. 

Development  Procedures 
Expert  System  for  Sensor  Evaluation 

The  knowledge  base  DATRUL_1  was  developed  from  previous 
knowledge  about  soil  water  sensor  responses  to  wetting  and 
drying  and  field  data  obtained  at  the  IREP  lysimeters  in  the 
summer  of  1988.   The  knowledge  base  determines  whether  a 
given  sensor's  reading  is  valid  and  can  be  used  to  provide 
feedback  to  PNUTGRO.   The  knowledge  base  is  used  with  the 
Pascal  program,  SENPOS,  to  decide  how  to  apply  feedback. 
DATRUL_1  places  flags  directly  into  the  spreadsheet  file, 
SENRED.WKS,  next  to  readings  that  are  questionable. 
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Readings  that  are  out  of  the  sensor's  range  of  operation 
receive  a  1  in  the  flag  location.   Sensors  that  are  giving 
false  readings  are  given  a  2.   Different  flags  are  placed 
for  these  two  situations  because  SENPOS  uses  out  of  range 
readings  that  are  increasing  to  modify  WRMOD,  the  root 
weighting  function.   Absolute  values  of  these  sensor 
readings  cannot  be  used  in  calculations,  however,  because 
they  are  out  of  the  sensor's  calibrated  range  of  operation. 
Table  6-1  summarizes  the  goals  and  actions  for  each  of  the 
rules  in  DATRUL_1. 

DATRUL_1  is  activated  once  for  every  sensor  across  all 
sensor  stations.   Each  station  contains  several  sensors 
placed  at  desired  depths  in  the  root  zone.   The  rule  base 
imports  sensor  data  for  the  present  and  previous  days  from 
the  spreadsheet  file  SENRED.WKS.   The  rule  base  evaluates 
sensor  readings  to  determine  how  they  will  be  used  in  SENPOS 
to  provide  feedback  to  PNUTGRO.   Decisions  are  based  on 

1.  a  sensor's  response  to  drying  compared  to  other 
sensors  at  the  same  depth, 

2.  readings  that  may  be  out  of  the  sensor's  calibrated 
range  of  operation, 

3 .  whether  enough  drying  has  occurred  to  compare 
sensor  responses  and  thus  allow  evaluation, 

4.  type  of  sensor  (ranges  of  operation  may  be 
different) ,  and 

5.  a  sensor's  physical  proximity  to  other  sensors  at 
the  same  depth. 
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A  detailed  example  of  how  the  knowledge  base  works  will 
help  further  explain  how  the  above  factors  influence 
decisions. 

When  the  knowledge  base  is  activated,  the  VP-Expert 

inference  engine  directs  that  the  goal  ACTIVATE  be 

satisfied.   This  is  accomplished  by  the  directive  FIND 

ACTIVATE.   Rule  0,  the  only  rule  that  has  ACTIVATE  as  a 

goal,  is  tested. 

RULE  0 

IF  NUMBER  >  0 

THEN  ACTIVATE  =  TRUE 

NUMBER  =  ( NUMBER- 1) 

PWKS  NUMBER, B19,SENRED; 

Rule  0  is  simply  a  counter  and  fires  if  the  number 

imported  from  the  worksheet  (a  WKS  clause  at  the  beginning 

of  the  knowledge  base)  is  greater  than  zero.   NUMBER 

indicates  if  all  sensors  per  location  have  been  tested 

across  the  field  stations.   If  there  are  still  sensors  to  be 

tested,  NUMBER  is  decremented  and  sent  to  its  worksheet 

location.   If  rule  0  fires,  the  rest  of  the  knowledge  base 

executes.   The  next  rules  that  are  tested  involve  satisfying 

the  goal  RATE_OF_DRYING.   Rule  18  is  the  first  rule  that  has 

RATE_OF_DRYING  as  a  goal. 

RULE  18 

IF  ACTIVATE  =  TRUE  AND 

THE_SENSOR  =  DRYING  AND 

DIFF_VAL  =  3  AND 

SPACEPLACE  ■  YES  AND 

DIFF1  >  (DIFF2+5)  AND 

DIFF1  >  (DIFF3+5) 
THEN  RATE_OF  DRYING  =  GOOD 
CLS 
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DISPLAY  "SENSORS  AT  POSITION  { VAL[1] }/ { VAL[2 ] }  ARE  DRYING 
O.K. THE  SENSOR  READING  AT  STATION  3  IS  INCREASING  FASTER 
THAN  THE  READINGS  AT  STATIONS  1  OR  2 .   THE  WATER  HOLDING 
CAPACITY  OF  THE  SOIL  MAY  BE  LOWER  AT  THAT  LOCATION  " 
DISPLAY  "   " 

BECAUSE  "If  sensor  stations  are  placed  far 
apart,  soil  characteristics  and  layerings 
at  each  station  may  be  different.  Soil 
types  that  hold  less  water  show  a  greater 
rate  of  potential  decrease  when  drying."; 

Rules  19  through  27  operate  similarly  to  rule  18.   When 

fired,  these  rules  simply  inform  the  user  of  the  sensor 

drying  rate  relative  to  the  others.   Each  rule  presents  a 

different  display  to  the  user  depending  on  which  sensor  is 

drying  faster.   One  of  these  rules  (19-27)  can  fire  instead 

if  any  conditions  required  by  rule  18  are  not  met.   These 

other  rules  can  be  traced  in  a  similar  manner. 

For  rule  18  to  fire,  two  other  conditions  must  be 

satisfied.   The  first  condition,   THE_SENSOR,  is  a 

consequence  of  rule  2 . 

RULE  2 

IF  ACTIVATE  =  TRUE  AND 

CONDITIONS  =  SUNNY_AND_HOT  OR 

CONDITIONS  =  MOSTLY_SUNNY 
THEN  THE_SENSOR  =  DRYING 
WKS  BANKS , Al , SENRED 
DISPLAY  "THE  SENSOR  READINGS  CAN  BE  EVALUATED" 

BECAUSE  " 

A  significant  drying  response  is  needed 
to  determine  the  relative  suitability  of 
readings.  Enough  drying  can  only  occur 
on  sunny  days . " ; 

For  rule  2  to  fire,  weather  conditions  of  SUNNY_AND_HOT  or 
MOSTLY_SUNNY  must  be  entered  by  the  user.   Only  these 
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weather  conditions  are  acceptable  because  enough  drying  must 
occur  to  cause  sensor  readings  to  increase.   Sensor 
responses  to  drying  cannot  be  compared  with  much  confidence 
if  they  do  not  register  significant  responses.   If  either 
SUNNY_AND_HOT  or  MOSTLY_SUNNY  are  entered  by  the  user,  rule 

2  fires. 

The  next  condition  of  rule  18  that  must  be  satisfied  is 
DIFF_VAL  =  3 .   This  is  a  consequence  in  rule  3 . 
RULE  3 

IF  ACTIVATE  =  TRUE  AND 
THE_SENSOR  -  DRYING  AND 
BANKS  =  3 
THEN  DIFF_VAL  =  3 
WKS  VAL,C20. .D28,SENRED 
DIFF1  =  (VAL[5]-VAL[3]) 
DIFF2  =  (VAL[11]-VAL[9]) 
DIFF3  =  (VAL[17]-VAL[15]) ; 

The  only  condition  that  has  not  been  satisfied  in  rule 

3  is  BANKS  =  3.   BANKS  indicates  the  number  of  stations  in 
the  field  over  which  sensors  at  the  same  depth  are  compared. 
If  the  number  for  BANKS  imported  by  the  WKS  clause  of  rule  2 
equals  3,  then  rule  3  fires.   When  rule  3  fires,  all  sensor 
values  to  be  tested  are  imported  from  absolute  locations  of 
the  worksheet  using  the  WKS  clause.   These  values  are 
automatically  subscripted  to  the  variable  VAL[I]  by  VP- 
Expert.   Differences  in  sensor  readings  between  the  previous 
and  present  days  at  each  station  are  then  determined  (DIFF1 
through  DIFF3) .   It  should  be  noted  that  DIFF1  is  the 
difference  between  readings  for  sensor  3  as  indicated  in  the 
DISPLAY  clause  of  rule  18.   Rules  4  and  5  operate  similarly 
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to  rule  3.   These  rules  have  consequences  DIFF_VAL  =  2  and 
DIFF_VAL  =  l.   These  rules  fire  if  the  number  of  sensor 
stations  (indicated  by  BANKS)  equals  2  or  1,  respectively. 
The  next  condition  that  must  be  satisfied  for  rule  18 
is  SPACEPLACE  =  YES.   The  user  is  asked  if  the  sensors 
stations  are  placed  far  apart  or  close  together  in  the 
field,   if  sensor  stations  are  placed  far  apart,  drying 
response  differences  from  one  station  to  the  next  could  be 
caused  by  differing  soil  characteristics  in  parts  of  the 
field.  (The  possibility  also  exists  that  a  sensor  may  have 
been  placed  closer  to  root  activity  although  this  is  seen  as 
less  likely) .   This  is  a  subjective  evaluation  that  is 
simply  presented  to  the  user  if  the  rule  fires.  This 
response  does  not  influence  whether  a  sensor  reading  is 
valid  or  not.   A  certain  degree  of  sensor  variability  is 
expected  and,  unless  the  variability  is  extreme  (as  treated 
in  a  later  rule) ,  the  sensor  readings  are  still  valid. 

Rule  18  will  fire  if  the  one  day  difference  in  sensor 
readings  for  sensor  3  (DIFF1)  is  greater  (by  a  specified 
tolerance)  than  readings  for  sensors  at  stations  1  or  2.   in 
that  case,  the  user  is  presented  with  text  in  the  DISPLAY 
clause  which  indicates  that  the  water  holding  capacity  may 
be  lower  at  that  location  causing  a  greater  decrease  in 
potential.   If  the  value  of  SPACEPLACE  were  equal  to  NO,  a 
similar  rule  (rule  23)  would  fire  indicating  a  more 
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likely  case  that  the  sensor  was  closer  to  active  roots  than 
the  other  two. 

Rule  18  also  contains  a  BECAUSE  clause,   if  the  user 
does  not  understand  why  he  is  being  asked  a  question,  he  can 
press  /3  on  the  keyboard  and  the  text  shown  in  BECAUSE  is 
presented.   This  applies  to  all  rules. 

After  rule  18  fires,  similar  rules  19-27  are  tested. 
None  of  these  rules  will  fire  unless  all  of  their  conditions 
are  satisfied.   The  next  rule  tested  requiring  input  is  rule 
6.   Here,  the  type  of  sensor  is  input  by  the  user.   Sensor 
specific  rules  indicate  possible  out  of  range  conditions 
that  influence  their  treatment  as  feedback  elements.   The 
present  coding  allows  for  Watermark  sensors  and  tensio- 
meters. 

Readings  from  Watermark  sensors  are  out  of  their 
calibrated  range  if  suctions  calculated  are  below  10  kPa  as 
indicated  in  Thomson  and  Armstrong  (1987).   Tensiometers  do 
not  have  an  out  of  range  condition  on  the  low  end  of  their 
operating  range.   Out  of  range  conditions  at  the  high  end  of 
operation  are  not  presently  treated  in  the  knowledge  base 
although  rules  can  be  easily  developed.   (Tensiometers  can 
break  suction  at  high  values,  for  example).  Thus,  it  is 
assumed  that  the  soil  is  not  permitted  to  dry  beyond  the 
workable  range  of  the  sensor  before  irrigation. 

For  this  discussion,  it  is  assumed  that  the  Watermark 
sensor  is  selected  by  the  user.   In  that  case,  rule  6  does 
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not  fire,  and  rules  dealing  with  Watermark  sensors  are 

tested.   If  any  sensor  reading  is  below  the  calibrated 

range,  one  of  these  rules  fires.   An  example  rule  is  rule 

13. 

RULE  13 

IF  ACTIVATE  =  TRUE  AND 

TYPE  =  WATERMARK  AND 

DIFF_VAL  =  3  AND 

VAL[3]  <  10  OR 

VAL[5]  <  10  AND 

VAL[9]  <  10  OR 

VALfll]  <  10  AND 

VAL[15]  <  10  OR 

VAL[17]  <  10 
THEN  READ_STATION  =  OUT_OF_RANGE 
PWKS  KOUTMARK , D2 1 . . D2  2 , SENRED 
PWKS  KOUTMARK, D24 . . D25 , SENRED 
PWKS  KOUTMARK, D27 . . D28 , SENRED 
CLS 

DISPLAY  "READINGS  AT  ALL  3  STATIONS  WERE  BELOW  THE  SENSOR'S 
LOWER  LIMIT  OF  10  CB.   INDIVIDUAL  READINGS  OBTAINED  BELOW 
10  CB  CANNOT  BE  USED  TO  MODIFY  SOIL  CHARACTERISTICS  BUT 
CAN  STILL  BE  USED  TO  MODIFY  ROOT  DISTRIBUTION." 
DISPLAY  "  " 

BECAUSE  "Every  soil  water  sensor  has  its 
own  working  range  and  operational 
characteristics.  Thus,  out  of  range  readings 
and  trends  noted  with  each  type  of  sensor  may 
be  treated  differently  in  the  program."; 


Rule  13  fires  if  a  sensor  reading  at  every  station  was  bel 
the  lower  limit  calibrated  value  of  10  kPa.   In  this  case, 
l's  are  placed  by  the  PWKS  clause  in  worksheet  locations 
next  to  the  sensor  readings.   These  flags  are  recognized 
later  by  SENPOS,  the  Pascal  program  that  contains  model 
parameter  adjustment  routines.   Appropriate  decisions  ara 
made  in  SENPOS  regarding  how  to  treat  sensor  readings  that 
are  out  of  range. 


ow 
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Another  set  of  rules  (rules  28-30)  deal  with  sensors 

that  show  significant  deviations  from  expected  values.   Rule 

28  is  shown  below. 

RULE  28 

IF  ACTIVATE  =  TRUE  AND 

DIFF_VAL  =  3  AND 

DIFF1  <=  5  AND 

DIFF2  >  10  AND 

DIFF3  >  10  AND 
CONDITIONS  =  SUNNY_AND_HOT  AND 
READINGS_INCREASE  =  YES 
THEN  IMPROPER_PLAC  =  YES 
PWKS  QUESTMARK,D21. .D2  2,SENRED 

DISPLAY  "CHECK  FOR  A  FAULTY  SENSOR  AT  STATION  3,  LOCATION 
(VAL[1] }/{VAL[2]).  IF  SENSOR  CHECKS  OUT  O.  K. ,  IT  MAY  NOT 
HAVE  BEEN  PLACED  PROPERLY  IN  THE  ROOT  ZONE.   CHECK  PLACEMENT 
AND  MOVE  IF  NECESSARY" 

BECAUSE  "In  order  to  compare  relative  drying 
responses  reliably,  you  need  a  high  stress 
day.   Readings  that  have  not  been  increasing 
may  indicate  no  roots  are  present  yet."  ; 

A  condition  of  rule  28  is  that  a  one  day  reading  difference 
for  sensor  3  must  be  less  than  5  kPa,  and  differences  must 
be  greater  than  10  kPa  for  the  other  two  sensors.   This 
indicates  that  sensor  3  is  not  showing  the  expected  drying 
response  if  the  user  also  indicates  that  the  field  sensors 
(in  general)  have  been  drying.   The  limits  5  kPa  and  10  kPa 
are  estimates  based  on  field  experience.   The  test  is  strict 
and  was  designed  to  fire  the  rule  only  under  conditions  that 
reflect  changes  occuring  on  the  fast  changing  part  of  the 
soil  moisture  characteristic  curve.   A  difference  of  10  kPa 
in  one  day  (under  moderate  to  high  stress  conditions)  will 
usually  occur  when  moisture  conditions  are  such  that  small 
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decreases  in  water  content  begin  to  show  large  reductions  in 
water  potential. 

If  one  of  rules  28  through  30  fire,  a  value  of  2  is 
placed  next  to  the  sensor  reading  in  the  worksheet  by  the 
PWKS  clause.   As  with  the  out  of  range  flag,  (1),  this  flag 
has  a  special  interpretation  by  SENPOS. 

The  last  rules  tested  are  rules  31  and  32.   If  there 
are  still  sensors  to  be  tested  (as  indicated  by  NUMBER  >  0) , 
the  user  is  instructed  to  quit  and  run  spreadsheet  macros 
which  bring  the  new  data  into  the  worksheet  area  accessed  by 
the  knowledge  base.   If  NUMBER  =  0,  rule  32  fires  and  the 
user  is  instructed  to  quit  and  run  the  spreadsheet  macro 
that  compresses  the  data  and  prints  it  to  an  ASCII  file  for 
later  analysis  by  SENPOS. 
Data  Input.  Calculation,  and  Output  Routines 

To  construct  the  knowledge  base  for  PNUTGRO  parameter 
modification,  routines  were  developed  to  modify  the  PNUTGRO 
weather  file,  input  soil  water  suction  data  from  the  user, 
input  soil  water  contents  and  root  length  densities  from 
PNUTGRO  output  files,  convert  soil  water  contents  to 
suctions,  and  display  the  results. 

Field  data  from  the  IREP  experiment  of  summer,  1988 
formed  the  basis  for  construction  of  the  knowledge  base.   To 
implement  the  above,  routines  were  also  needed  to  weight 
soil  water  contents  in  PNUTGRO  soil  zones  to  those  of  sensor 
zones  so  direct  comparisons  could  be  made.   Two  programs, 
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FIELDRAW  and  SENPOS,  contain  routines  that  allow  input  and 
analysis  of  data  for  construction  of  the  knowledge  base. 
In  FIELDRAW,  the  user  is  asked  if  he  would  like  to 
enter  sensor  data  or  run  the  system  with  default  sensor 
files.   If  he  chooses  the  default  option,  the  sensor  data 
acquisition  routines  are  bypassed.   If  he  has  sensor 
readings,  the  user  is  asked  how  many  sensor  stations  are  in 
the  field,  and  for  values  of  the  previous  day's  total  solar 
radiation,  maximum  and  minimum  air  temperatures,  rainfall, 
and  photosynthetically  active  radiation  (PAR) .   These  are 
necessary  inputs  to  the  PNUTGRO  crop  model.   If  the  user 
does  not  have  a  reading  for  PAR,  the  program  calculates  an 
approximate  value  from  solar  radiation.  (PAR  is  needed  in 
photosynthesis  routines  and  influences  specific  leaf  area, 
but  is  not  used  for  water  balance  calculations) . 

If  the  program  is  being  run  for  the  first  time,   the 
user  is  asked  how  many  sensors  are  being  read  at  each 
station  and  for  sensor  depths  and  lateral  spacings  in 
sequence.   The  program  presents  the  user  with  a  graphical 
representation  of  the  input  sensor  layout,  drawn  to  scale, 
for  his  approval.   This  allows  him  to  correct  any  mistakes 
he  might  have  made  entering  the  layout.   For  the  present 
version  of  the  program,  the  same  number  of  sensors  per 
station  must  be  entered  for  every  station.   Otherwise,  gaps 
in  data  will  cause  problems  with  the  spreadsheet  macros. 
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The  user  is  then  asked  for  the  Julian  date,  time  of  day 
the  sensors  were  read,  and  suction  values  for  each  sensor  in 
sequence.   FIELDRAW  stores  each  station's  readings  in  a 
separate  data  file  (SEN1.DAT  -  SEN6.DAT).   Each  data  file 
keeps  the  latest  two  days  of  sensor  readings.   When  a  new 
day's  sensor  readings  are  entered,  FIELDRAW  removes  the 
earliest  sensor  readings  from  the  file,  moves  the  previous 
day's  data  in  its  place,  and  stores  the  new  data  below  it. 

When  all  sensor  data  have  been  entered,  FIELDRAW  sends 
weather  data  to  the  input  weather  file  for  PNUTGRO 
(UFGA0511.W88)  at  (Julian  Date  -  1).   The  same  weather  data 
are  also  used  for  following  days  so  irrigation  scheduling 
routines  (described  later)  can  forecast  an  irrigation  date 
based  on  the  previous  day's  weather.   If  rain  fell  on  that 
day,  however,  the  rain  amount  is  entered  only  at  (Julian 
Date  -  1)  and  zero  rainfall  is  placed  in  the  data  file  for 
all  following  days.   Since  the  radiation  load  is  lower  on 
rainy  days,  values  for  radiation  and  temperatures  for  a 
typical  day  without  rain  are  sent  to  the  weather  file  for 
the  following  days.   Values  for  a  typical  day  were  taken 
from  the  weather  data  used  for  the  IREP  experiment. 

The  number  of  future  days  that  use  weather  data  for 
irrigation  forecasting  is  variable.   After  the  last  forecast 
day,  weather  data  from  the  IREP  experiment  or  a  typical 
season  are  entered  into  the  data  file.   If  data  without  rain 
were  placed  in  the  PNUTGRO  weather  file  for  the  entire 
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season,  the  crop  would  show  significant  stress  during  each 
run  of  PNUTGRO.   Although  the  crop  stressing  later  in  the 
season  would  not  affect  the  short  term  irrigation  forecast, 
other  useful  results  (such  as  yields)  could  not  be  obtained. 
The  program  is  thus  designed  to  allow  other  PNUTGRO 
variables  such  as  yield  to  be  examined  as  desired  using  a 
prior  weather  file  and  daily  updating. 

To  make  comparisons  between  soil  water  contents  based 
on  sensor  data  and  on  the  crop  model,   SENPOS  weights  soil 
water  content  and  root  length/unit  area  in  the  PNUTGRO  soil 
zones  to  zones  around  the  field  sensors.   Each  field  sensor 
has  an  assumed  zone  of  influence  which  is  expanded  or 
contracted  depending  on  its  proximity  to  other  sensors  in 
the  zone. 

The  procedure  InputlnitialData  in  the  program  FIELDRAW 
also  performs  error  checking  if  the  user  enters  questionable 
weather  data.   If  total  radiation  or  max/min  temperatures 
are  out  of  an  acceptable  range  of  values,  the  user  is 
alerted  to  take  corrective  action.   Under  these  conditions, 
the  weather  file  is  not  modified  until  the  problem  is  fixed. 
If  the  value  for  PAR  is  questionable,  the  user  is  alerted, 
but  the  weather  file  is  modified  with  a  default  value 
calculated  from  the  total  radiation.   If  the  user  enters 
zero  rainfall  for  that  day,  but  he  observed  an  appreciable 
amount  of  rain,  he  is  told  to  check  the  data  collection 
system  or  instrumentation.   In  this  case,  the  weather  file 
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is  still  modified  if  rainfall  was  the  only  questionable 
input  value.   Table  6-2  lists  these  Pascal  error  checking 
rules. 
Irrigation  Scheduling  Routines 

In  the  main  body  of  SENPOS,  the  user  is  asked  questions 
about  his  irrigation  management  objectives  including  the 
composite  suction  he  would  like  to  trigger  the  irrigation 
system  (assigned  to  the  variable  LEVEL) .   The  user  is  also 
asked  what  percentage  root  mass  to  replenish  and  what  type 
of  irrigation  system  is  being  used. 

An  important  calculation  in  the  SENPOS  procedure 
RegZone  determines  the  water  regulation  zone.   The  user- 
entered  value  of  replenished  percentage  root  mass  and  model 
outputs  of  root  length  in  each  zone  determine  the  depth  of 
this  zone.   All  composite  water  potentials  calculated  from 
the  PNUTGRO  crop  model  used  to  trigger  irrigation  are 
calculated  within  this  regulation  zone.   Irrigation  is  also 
applied  to  the  bottom  of  this  regulation  zone. 

The  type  of  irrigation  system  used  affects  the 
irrigation  forecast  date.   The  user  receives  feedback  from 
the  program  regarding  suitability  of  sensor  placements  (if 
enough  were  placed  in  the  zone) ,  and  is  told  what  depth  of 
zone  will  be  replenished  corresponding  to  the  entered  value 
of  percentage  root  mass. 

The  procedure  DayToIrrigate  determines  a  projected 
irrigation  date  and  calculates  the  amount  of  water  to  apply 
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to  the  field.   The  projected  irrigation  date  is  based  on 
model  outputs  of  soil  water  content  in  each  soil  zone 
several  days  ahead.   The  soil  water  contents  are  converted 
to  suctions  using  a  published  characteristic  curve  for  a 
Millhopper  sand  (Carlisle,  1985)  programmed  in  the  procedure 
Suctions.   A  composite  suction  in  the  regulation  zone  is 
calculated  and  compared  to  the  user  entered  value.   When  the 
user  entered  trigger  level  is  reached  or  exceeded,  irri- 
gation is  recommended. 

The  amount  of  water  to  apply  is  based  on  the  difference 
between  the  water  content  corresponding  to  the  projected 
suction  on  that  date  and  the  soil  water  content  at  field 
capacity  in  the  zone  of  water  regulation.   The  soil  water 
content  at  field  capacity  is  assigned  the  value  of  drained 
upper  limit  (DUL)  in  the  first  5  soil  zones  listed  in  the 
soil  characteristics  file  for  a  Millhopper  sand.   This  soil 
characteristics  file,  SPR0FILE.PN2 ,  is  an  input  file  to 
PNUTGRO.   The  DUL  may  change  as  the  knowledge  base  is  run 
since  it  is  one  of  the  parameters  that  is  altered  as  a 
result  of  sensor-based  feedback. 

The  procedures  WaterDepth  and  Adjustlrrig  provide 
feedback  for  the  next  irrigation  cycle.   The  deepest  sensor 
to  respond  within  one  day  of  irrigation  indicates  the  depth 
of  water  penetration.   The  rule  used  to  accomplish  this  is 
shown  in  Table  6-3.   If  the  depth  of  penetration  is 
different  than  the  calculated  zone  of  regulation,  the 
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procedure  Adjustlrrig  adds  or  subtracts  a  small  amount  (2.5 
mm)  of  water  applied  to  the  next  irrigation  cycle.   Since 
this  adjusted  amount  must  be  used  for  later  activations  of 
the  program,  it  is  stored  to  and  accessed  from  a  permanent 
file  IRROFSET.DAT. 

The  procedure  DayToIrrigate  provides  different 
management  for  cases  where  the  system  applies  water 
uniformly  with  time  (as  in  a  solid  set  system)  or  non- 
uniformly  (as  in  a  center  pivot  system) .   For  a  solid  set 
system,  there  is  no  lead  time  required  to  apply  water  since 
the  system  irrigates  the  entire  field  at  the  same  time. 
Center  pivot  systems  provide  added  complexity  if  a 
model-based  prediction  is  used  to  schedule  irrigation. 
In  DayToIrrigate,  the  user  is  asked  to  enter  the  amount  of 
water  the  system  applies  and  the  time  to  traverse  the  entire 
field  at  100  percent  travel.   This  information  is  used  to 
determine  the  lead  time  needed  to  start  the  system  so  crops 
are  not  stressed  at  the  end  of  the  cycle. 

To  apply  the  center  pivot  scheduling  algorithm 
properly,  some  assumptions  were  made.   First,  the  model- 
based  predictions  should  represent  conditions  in  the  first 
part  of  the  field  irrigated.   Likewise,  all  soil  water 
sensors  should  be  confined  to  the  first  part  of  the  field. 
Drying  occurs  after  a  saturating  rain  where  field  soil 
moisture  conditions  are  assumed  to  be  uniform.   Non-uniform 
soil  moisture  conditions  occur  after  the  first  irrigation 
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cycle,  so  sensor  readings  cannot  be  averaged  if  the  sensors 
are  widely  spaced. 

For  the  present  strategy,  a  primary  requirement  is  that 
the  system  arrive  at  the  last  part  of  the  field  on  time  so 
the  crop  does  not  stress.   If  calculations  show  that  the 
center  pivot  cannot  apply  the  required  amount  of  water  in 
time,  a  lesser  amount  is  applied  proportional  to  the  system 
capacity  and  the  time  required  to  reach  the  end  of  the 
field.   The  user  is  told  how  much  water  should  be  applied, 
how  much  will  actually  be  applied,  and  the  percentage  timer 
setting  required  to  run  the  system. 
Parameter  Adjustment  Routines 

Development  of  the  data  input,  calculation,  and  output 
routines  provided  a  means  by  which  field  data  from  the  IREP 
could  be  analyzed  and  a  knowledge  base  could  be  constructed. 
To  adjust  parameters  for  PNUTGRO,  modifications  to  the 
FORTRAN  code  were  implemented  to  accept  data  files  modified 
by  the  knowledge-based  system.   PNUTGRO  code  modifications 
were  developed  concurrently  with  the  parameter  adjustment 
routines  of  SENPOS.   Based  on  previous  experience  and 
analysis  of  the  field  data,  soil  characteristics,  root 
distribution  functions,  and  ET  were  seen  as  primary 
candidates  for  modification  by  the  parameter  adjustment 
routines. 

To  construct  rules  in  SENPOS  for  parameter  adjustments, 
an  alternate  form  of  PNUTGRO  was  developed,   since  the  field 
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experiment  allowed  ET  to  be  measured  along  with  sensor 
readings,  PNUTGRO  was  modified  to  accept  ET  data  from  the 
field  test.   By  using  this  version  of  PNUTGRO  (for  analysis 
only),  ET  was  set  to  actual  daily  (instead  of  modeled) 
values  and  differences  in  sensor-  and  model-based  results 
could  be  attributed  to  different  soil  water  and  rooting 
characteristics . 

Figures  6-2  through  6-4  illustrate  modifications  to  the 
FORTRAN  files  GRO.FOR  and  WATBAL.FOR.   These  programs  were 
modified  to  import  and  use  the  lysimeter  ET  data.   In  the 
figures,  modifications  are  shown  in  boldface  type  to 
facilitate  the  discussion. 

The  file  GRO.FOR  (Figure  6-2)  was  modified  to  open  the 
file  ETSET.DAT.   ETSET.DAT  contains  daily  ET  values  which 
are  average  readings  from  both  lysimeters.   Figure  6-3  shows 
modifications  to  the  code  of  WATBAL.FOR  to  accept  ET  data. 
Lysimeter  ET  data  were  entered  every  day  after  June  30  (day 
182)  when  the  field  experiment  began.   Until  the  experiment 
began,  ET  was  modeled  using  the  Ritchie  (1985)  water  balance 
already  programmed  in  PNUTGRO. 

In  WATBAL.FOR,  the  potential  evapotranspiration,  Eo, 
was  assigned  the  input  value  of  ET  for  that  day.   This  was 
done  so  the  methods  used  in  the  model  to  partition  ET  into 
components  of  soil  evaporation  and  plant  transpiration  could 
be  implemented.   The  proportion  of  the  total  ET  allocated  to 
each  component  influences  the  water  uptake  pattern  in  the 
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root  zone.   As  seen  in  the  code  of  Figure  6-3,  plant 
transpiration  was  proportioned  according  to  the  modeled  LAI. 
Since  LAI  measurements  were  not  taken  in  the  field,  modeled 
LAI  was  used  to  proportion  the  ET  into  the  evaporation  (E) 
and  transpiration  (T)  components. 

The  code  was  also  modified  to  change  root  water  uptake 
functions  resulting  from  the  use  of  input  ET  values.   In  the 
original  code,  a  factor  WUF  was  calculated  to  reduce  root 
water  uptake  in  each  soil  zone  if  the  weather  driven 
transpiration,  (EP1)  was  less  than  the  total  root  water 
uptake,  TRWU,  calculated  from  soil  and  root  properties. 
This  statement  was  left  intact.   However,  another  statement 
was  needed  to  allow  WUF  to  increase  above  1.0  if  EP1  derived 
from  ET  values  was  greater  than  TRWU.   In  that  case,  more 
water  was  being  transpired  than  the  calculations  for  RWU 
indicated.   Thus,  the  RWU  in  each  zone  would  require  an 
increase  to  equal  the  actual  EP1. 

The  last  modification  involves  final  calculation  of 
plant  transpiration,   in  the  version  of  PNUTGRO  that  models 
ET,  the  plant  transpiration,  (EP,  which  equals  EP1 
multiplied  by  10)  was  set  equal  to  TRWU  (times  10)  if  EP1 
was  greater  than  TRWU.   A  soil  deficit  factor  SWDF1  was  also 
calculated  indicating  that  the  crop  underwent  stress 
proportional  to  the  ratio  of  TRWU  to  EP1.   SWDF1  was  used  in 
another  routine  to  reduce  photosynthesis.   Conversely,  EP 
was  set  equal  to  its  LAI  partitioned  value  if  EP1  was  less 
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than  TRWU.   In  this  version  of  PNUTGRO  using  ET  inputs,  the 
above  implementations  were  left  intact  except  that  EP  was 
always  set  to  its  LAI  partitioned  value  and  never  set  equal 
to  TRWU. 
Modification  of  soil  character!  h1-i  cb 

Soil  characteristics  were  modified  by  changing 
parameters  in  SPROFILE. PN2,  the  soil  characteristics  input 
file  to  PNUTGRO.   Thus,  no  modifications  were  needed  to  the 
PNUTGRO  code  itself.   The  PASCAL  program  SENPOS  modifies 
soil  parameters  as  feedback  from  soil  water  sensors  dictate. 

SENPOS  has  procedures  that  adjust  parameters  in  the 
soil  characteristics  input  file,  SPROFILE. PN2 .   SPROFILE 
contains  soil  characteristics  data  for  2  9  different  soils. 
When  it  is  run,  PNUTGRO  automatically  picks  the  proper  data 
set  for  the  soil  chosen.   The  procedures  modify  the  DUL  and 
LL  in  each  soil  layer  of  the  chosen  data  set.   since  many 
soil  characteristics  might  require  modification  in  the 
future  as  more  knowledge  is  gained,  procedures  in  SENPOS 
were  designed  so  that  other  parameters  in  SPROFILE. PN2  could 
be  accessed  and  modified  with  only  minor  code  changes. 

The  procedure  Sprof ileModif  in  SENPOS  performs 
parameter  adjustments.   Table  6-3  illustrates  the  rules  used 
to  adjust  parameters.   The  body  of  the  procedure  is  executed 
only  if  the  soil  is  drying.   Decisions  to  change  parameters 
are  based  on  a  comparison  of  model-  and  sensor-based 
representations  of  the  composite  suction  in  the  water 
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regulation  zone.   If  the  model-based  representation  of 
composite  suction  (Comp[2])  is  greater  by  10  kPa  than  the 
composite  sensor  suction  (Compsen)  on  any  portion  of  the 
drying  cycle,   small  increments  proportional  to  the 
difference  between  the  two  values  are  added  to  the  LL  and 
DUL  values  in  SPROFILE . PN2 .   These  modifications  were 
developed  based  on  analysis  of  lysimeter  field  data. 
Likewise,  if  the  sensor  suction  is  greater  by  10  kPa  than 
the  model  derived  suction,  small  increments  are  subtracted 
from  the  DUL  and  LL  values. 

To  determine  which  soil  characteristics  in  SPROFILE. PN2 
to  modify  with  parameter  adjustment  routines,  lysimeter  data 
were  examined  to  find  a  good  drying  response  over  several 
days  between  rain  or  irrigation  events.   Field  data  from 
soil  water  sensors  indicated  that  the  period  of  July  2  6 
through  July  30,  1988,  (Julian  days  208  -  212)  provided  a 
good  drying  response  early  in  the  season  through  a  wide 
range  of  suctions.   Data  from  soil  water  sensors  were 
compared  to  data  from  load  cells  converted  to  ET  at  the 
north  lysimeter.   Sensors  at  the  south  lysimeter  were  being 
re-located  due  to  improper  placement  and  thus  could  not  be 
used  on  these  dates. 

To  begin  evaluation,  data  from  the  unmodified  field 
test  weather  file  (UFGA0511.W88)  was  imported  by  PNUTGRO. 
Field  observations  indicated  that  soil  water  sensors  began 
to  show  drying  on  day  207  after  a  rain  event.  This  was 
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consistent  with  soil  water  drying  trends  noted  in  the 
PNUTGRO  output  file  0UT3.PN.   PNUTGRO's  own  calculations  of 
soil  water  re-distribution  after  a  rain  event  set  the 
initial  conditions  for  the  test. 

Root  weighting  factors  were  set  to  values  derived  from 
examination  of  lysimeter  data  for  the  entire  season.   Values 
already  in  the  soil  characteristics  file  for  a  Millhopper 
sand  were  not  used  because  they  were  not  consistent  with 
lysimeter  observations.   Details  regarding  derivation  of  the 
root  weighting  factors  are  presented  in  a  later  section. 
PNUTGRO  was  first  run  using  the  original  soil  input 
file  for  a  Millhopper  sand  and  a  modified  version  of  the 
water  balance  (WATBAL.FOR)  that  imports  ET  values  from 
lysimeter  data.   After  PNUTGRO  was  run,  SENPOS  was  activated 
to  allow  analysis  and  recording  of  output  soil  water 
suctions  and  corresponding  water  contents  from  both  the 
model  and  sensors.   Once  the  data  were  recorded,  PNUTGRO  was 
run  again  with  a  modified  version  of  the  Millhopper  soil 
characteristics  file  in  SPR0FILE.PN2 .   For  the  modified 
version,  DUL  and  LL  were  set  to  values  characteristic  of  a 
generic  medium  sand  (also  in  SPR0FILE.PN2) . 

It  was  desired  to  compare  sensor  representations  of 
soil  water  suction  to  model-based  representations  using  two 
different  DUL  values.   These  DUL  values  are  0.086  for  a 
Millhopper  sand  and  0.107  for  a  generic  medium  sand. 
Comparisons  of  soil  water  suction  as  a  function  of  time  for 


197 


three  depths  are  illustrated  in  Figures  6-5  through  6-7. 
Figure  6-8  illustrates  a  comparison  using  composite  suctions 
in  a  24  cm  zone  of  water  regulation.   This  depth  of  24  cm 
was  at  the  bottom  of  the  zone  of  influence  calculated  for 
the  20  cm  sensor.   (The  SENPOS  procedure  ZoneAdjust 
calculated  a  12  cm  zone  of  influence  around  each  sensor 
placed  8  and  20  cm  deep) .   It  was  desired  to  regulate  soil 
water  in  a  zone  corresponding  to  70  percent  of  the  root  mass 
(or  root  length)  as  calculated  in  SENPOS.   SENPOS  determined 
28  cm  to  be  the  zone  of  regulation  corresponding  to  70 
percent  of  root  mass.   A  24  cm  zone  was  calculated  in  the 
SENPOS  procedure  CalRLDRegZone  to  be  the  closest  discrete 
point  to  28  cm  at  the  edge  of  a  soil  water  sensor's  zone  of 
influence.   A  water  regulation  zone  of  70  percent  of  total 
root  volume  is  in  a  range  of  typical  values  recommended  by 
Richards  and  Marsh  (1961)  and  Taylor  and  Ashcroft  (1972). 

Composite  suctions  were  calculated  in  SENPOS  procedures 
Suctions  and  CompoSensor  for  PNUTGRO  and  soil  water  sensors, 
respectively.   The  calculated  soil  water  suction  in  each 
zone  was  weighted  by  the  root  length  in  that  zone  divided  by 
the  total  root  length.   Weighted  results  in  each  zone  were 
then  summed  within  the  calculated  24  cm  zone  of  water 
regulation.   since  PNUTGRO  outputs  soil  water  contents, 
these  were  converted  to  suctions  using  the  soil  moisture 
characteristic  curve  for  a  Millhopper  sand  in  the  procedure 
Suctions  (Carlisle,  1985) . 
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Figures  6-5  through  6-8  illustrate  that  increasing  the 
DUL's  to  values  typical  of  a  medium  sand  caused  the  model- 
based  suctions  to  be  much  closer  to  the  sensor  suctions. 
From  these  data,  criteria  were  developed  to  implement  a 
parameter  adjustment  strategy  in  the  procedure 
SprofileModif.   The  convergence  indicated  in  the  figures 
reflect  raising  the  DUL  from  0.086  (value  designated  for 
Millhopper  sand)  to  0.107  (value  designated  for  a  generic 
medium  sand)  in  the  shallow  soil  zones. 

The  DUL  is  the  point  where  drainage  no  longer  occurs 
out  of  a  soil  layer.   When  the  soil  water  content  is  above 
the  DUL,  the  excess  amount  drains  to  the  next  layer,   when 
the  lower  value  of  0.086  was  used  for  DUL,  a  layer  would 
drain  leaving  the  water  content  at  a  low  value  before 
PNUTGRO  root  uptake  routines  brought  the  water  content  down 
further.   Thus,  faster  increases  in  soil  water  suction 
occurred  early  because  changes  in  water  content  took  place 
on  the  fast  changing  part  of  the  soil-water  characteristic 
curve  as  illustrated  in  Figure  6-9. 

Differences  between  sensor-  and  model -based  suctions 
were  used  to  modify  the  DUL.   It  was  decided  that  if  the 
model  derived  composite  suction  was  greater  by  10  kPa  than 
the  sensor  suction,  the  DUL  would  be  increased  by  0.021  (the 
difference  between  0.107  and  0.086  cm/cm)  multiplied  by  the 
result  of  model  derived  suction  minus  the  sensor  suction, 
divided  by  loo  kPa.   Likewise,  if  the  sensor  suction  was 
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greater  than  the  model  derived  suction,  the  resulting  factor 
was  subtracted  from  the  DUL. 

Using  a  small  suction  difference  (10  kPa)  as  criteria 
for  modification  allowed  parameter  adjustments  to  occur  in 
the  early  days  of  drying  so  the  chance  to  modify  the  DUL 
would  not  be  missed  due  to  a  possible  rain  event.   It  was 
noticed  during  the  field  study  that  extended  periods  of  no 
rain  were  rare.   If  a  larger  suction  difference  were  used  as 
criteria  (say,  100  kPa) ,  the  entire  adjustment  of  0.021 
cm/cm  could  be  made  all  at  once.   However,  a  suction 
difference  of  100  kPa  might  take  several  days  to  occur.   If 
a  rain  event  occurs  during  that  period,  no  adjustment  would 
be  made. 

A  small  increment  was  added  to  the  DUL  because  the 
small  suction  difference  (10  kPa)  provided  weaker  evidence 
that  the  DUL  needed  adjustment.   Also,  if  the  DUL  were 
modified  all  at  once,  oscillations  could  occur  if  other 
parameters  that  also  influence  soil  water  content  were 
modified.   Choice  of  the  suction  trigger  level  and  magnitude 
of  adjustment  can  be  easily  changed  in  the  program. 

The  LL  was  also  adjusted  along  with  the  DUL.   Values  of 
DUL  and  LL  were  adjusted  as  pairs  in  each  soil  zone  to 
approach  values  entered  in  SPR0FILE.PN2  for  a  generic  medium 
sand.   The  LL  does  not  influence  calculations  in  the 
relatively  high  ranges  of  water  content. 
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Root  weighting  factors 

The  PNUTGRO  routine  IPSOIL.FOR  was  modified  to  accept 
soil  weighting  factors  WR(I)  (Figure  6-10) .  These  factors 
are  normally  extracted  from  the  soil  characteristics  input 
file  SPROFILE.PN2. 

There  are  several  variables  used  in  PNUTGRO  which  deal 
with  root  growth.   The  variables  chosen  to  modify  were  the 
root  weighting  factors  WR(I)  in  each  soil  zone.   These 
variables  were  chosen  based  on  the  following  analysis  of 
PNUTGRO' s  programmed  algorithms.   Equations  are  presented  in 
FORTRAN  compatible  format  as  programmed  in  PNUTGRO. 

PNUTGRO  uses  a  slight  variation  of  the  root  growth 
functions  described  by  Jones  et  al.  (1986).   In  the  FORTRAN 
subroutine  WATBAL.FOR,  new  root  growth  (cm  root/ cm2  soil 
surface  area)  is  first  specified  by 

RLNEW  =  GRORT  *  RFAC1  *  PLTPOP/GAREA  (6-1) 

where 

GRORT  =  daily  growth  of  root  system  (g/plant-day) , 
RFAC1  =  root  length  to  weight  parameter  (cm/g) , 
PLTPOP  =  no.  of  plants/square  meter,  and 
GAREA  =  conversion  factor,  cm2/m2. 

GRORT  is  calculated  from  the  amount  of  carbohydrate 
partitioned  to  the  roots  proportioned  by  another  variable  in 
the  subroutine  GROW. FOR.   RFAC1  is  set  to  6500  cm/g  and  was 
derived  from  root  length  density  data  for  Florunner  peanuts 
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as  measured  by  Robertson  et  al.  (1980).   A  root  length 
density  factor  for  root  growth  in  each  layer  is  then 
calculated  by 


RLDF(I)  =  SWDF(I)*WR(I)  (6-2) 


where 


SWDF(I)  =  soil  water  deficit  factor  (0  to  1, 
unitless) ,  and 

WR(I)  =   root  growth  weighting  factor  (0  to  1, 
unitless) . 

The  soil  water  deficit  factor  SWDF(I)  equals  1.0  unless 
the  volumetric  water  content  (SW(I))  in  a  layer  drops  below 
0.25  of  plant  extractable  water.   In  that  case,  SWDF(I)  is 
proportional  to  the  difference  between  the  actual  soil  water 
content  (SW(I) )  and  the  lower  limit  of  soil  water  content 
(LL(I))  for  the  soil,  divided  by  one  fourth  the  extractable 
soil  water  (ESW(I)).   The  empirically  derived  root  growth 
weighting  function  WR(I)  represents  a  probability  distri- 
bution of  roots  growing  in  each  of  the  zones  late  in  the 
season  if  well  watered. 

The  root  length  density  factor  RLDF(I)  weights  root 
length  densities  RLV(I)  (cm  root/cm3  soil)  in  each  soil 
zone.   A  new  RLV(I)  at  the  next  time  step  is  given  by 


RLV(I)  =  RLV(I)*  (SEN)  + 


RLDF ( I ) *RNLF ( I ) 
DLAYR(I) 


(6-3) 
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where 

RNLF(I)  =  ratio  of  new  root  length  (RLNEW)  to  sum  of 
RLDF(I)  in  each  soil  layer, 

DLAYR(I)  =  depth  of  soil  layer  (cm),  and 

SEN      =  senescence  terms  (many  variables) . 

The  final  equations  of  interest  are  those  that 
calculate  root  water  uptake,  RWU(I) .   PNUTGRO  uses  a  form 
similar  to  that  of  Ritchie  (1985)  (Equation  3-4)  to 
calculate  RWU(I)  (cm3/cm  root-day): 

RWU(I)  =  SWC0Nl*EXP(AMINl(fSWC0N2*  (SW(I) -LL(I)  )  )  .40M  (6-4) 
(SWC0N3-AL0G(RLV(I) ) ) 

where 

SWCONl,SWCON2,SWCON3  =  conductivity  coefficients. 

RWU(I)  is  then  converted  to  units  of  cm  uptake/layer 

RWU(I)  =  RWU(I)*DLAYR*RLV(I).  (6-5) 

Equations  6-4  and  6-5  indicate  that  root  water  uptake 
is  a  strong  linear  function  of  root  length  density. 
Equation  6-4  contains  a  logarithmic  component  although  this 
is  very  small  compared  to  the  linear  component.   Root  length 
density,  in  turn,  is  weighted  by  the  root  length  density 
factor  (RLDF(I))  (Equation  6-3)  which  is  a  linear  function 
of  the  root  weighting  factor  WR(l)  (Equation  6-2).   WR(i) , 
therefore,  can  be  used  to  modulate  root  water  uptake, 
RWU(I) . 
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The  WR(I)  function  is  highly  sensitive  to  horizon 
effects  such  as  soil  strength,  fertility,  pH,  and  organic 
matter  although  none  of  these  are  considered  in  the  present 
version  of  PNUTGRO.   in  determining  WR(I) ,  PNUTGRO  accounts 
for  the  genetic  capability  of  different  crops  or  cultivars 
to  proliferate  in  the  root  zone.   The  model  also  attempts  to 
account  for  soil  differences  on  root  growth,  although  data 
for  this  are  limited.   Jones  et  al.  (1986)  presented  a 
function  (Equation  3-1)  that  could  be  used  for  calculating 
WR(I)  if  data  were  not  available,   in  PNUTGRO,  a  WR(l) 
function  was  derived  for  a  sandy  soil  from  experimental  data 
of  Robertson  et  al.  (1980)  and  is  specified  for  many  fine 
sands  in  the  soil  characteristics  input  file  SPROFILE.PN2 . 
Reliable  data  for  the  WR(I)  function  is  limited,  however. 
As  the  WR(I)  function  greatly  influences  the  degree  of 
modeled  water  uptake  in  the  soil  zones,  reliable  estimates 
of  the  function  are  crucial.   Parameter  adjustment 
subroutines  RootDepth  and  WRModif  in  SENPOS  modify  WR(l)  in 
the  external  file,  WRMOD.DAT,  which  PNUTGRO  was  modified  to 
accept. 

The  SENPOS  procedure  RootDepth  determines  the  depth 
that  water  use  occurs  and  compares  it  with  model-based 
results.   The  rule  used  to  accomplish  this  is  shown  in  Table 
6-3.   The  procedure  loops  through  all  sensors  in  the  field 
individually  starting  with  the  shallowest  to  determine  if 
water  uptake  has  been  detected.   If  readings  over  one  day 
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have  increased  more  than  5  kPa,  the  variable  RootDepthSen  is 
set  to  the  corresponding  sensor  depth.   Similar  criteria  are 
used  for  model  outputs,  also.   If  model  derived  suction 
values  increase  more  than  2  kPa  over  a  one  day  period,  the 
corresponding  depth  is  assigned  to  the  variable 
RootDepthModel .   A  greater  tolerance  is  used  for  the  sensor 
because  readings  in  the  field  can  fluctuate  slightly.   Human 
errors  in  reading  the  sensor,  and  temperature  effects 
exposing  small  inaccuracies  in  sensor  calibration  equations 
are  sources  of  error. 

If  the  sensor  determined  rooting  depth  is  not  equal  to 
the  model  determined  rooting  depth,  the  procedure  WRModif  is 
activated.   The  procedure's  objective  is  to  modify  root 
weighting  factors  so  future  model-based  representations  of 
water  use  distributions  in  sensor  zones  can  converge  on 
sensor-based  representations.   If  model-based  rooting  depth 
(determined  by  RootDepth)  is  greater  than  sensor-based 
rooting  depth,  a  number  is  subtracted  from  all  weighting 
factors  below  the  sensor  depth  and  results  are  re-written  to 
the  file,  WRM0D.DAT.   This  number's  magnitude  is  determined 
by  the  magnitude  of  the  weighting  factor  it  is  being 
subtracted  from  relative  to  the  other  weighting  factors. 

Conversely,  if  model-based  rooting  depth  is  less  than 
that  registered  by  the  sensors,  the  same  proportioned  number 
is  added  to  the  weighting  factors  below  the  model-based 
rooting  depth.   The  rule  used  to  accomplish  this  is  shown  in 
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Table  6-3.   The  next  run  of  PNUTGRO  has  these  new  factors  so 
that  model-based  distributions  of  water  use  can  converge  on 
sensor-based  results. 

The  method  described  above  used  the  deepest  sensor 
registering  uptake  as  an  indication  of  the  active  rooting 
depth.   This  method  was  favored  over  one  that  attempted  to 
assign  absolute  water  content  differences  to  observed 
changes  in  sensor  water  potential.   If  water  potential  could 
be  accurately  converted  to  water  content,  relative 
magnitudes  of  water  uptake  could  be  delineated  more 
accurately  and  root  weighting  factors  could  be  modified  more 
precisely. 

Actually,  soil  water  potentials  cannot  be  accurately 
converted  to  water  contents  because  soil  characteristics  may 
be  highly  variabile  and  potentials  frequently  encountered  at 
deeper  depths  may  be  out  of  the  sensor's  calibrated  range. 
This  can  occur  with  the  Watermark  sensor  used  in  this  study 
(Thomson  and  Armstrong,  1987) .   However,  drying  trends  can 
still  be  observed  even  though  absolute  values  for  readings 
in  the  un-calibrated  range  may  be  suspect. 

The  root  weighting  factors  (WR(l))  initially  entered 
into  the  file  WRM0D.DAT  were  not  the  ones  originally 
specified  for  a  Millhopper  sand.   Cursory  examination  of  the 
field  data  over  the  entire  season  indicated  that  root  water 
uptake  observed  using  sensors  occurred  at  much  shallower 
depths  than  these  curves  dictate.   Data  generated  from 
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PNUTGRO  runs  confirmed  that  significant  differences  in  water 

distributions  occurred  when  the  curve  recommended  for  a 
Mlllhopper  sand  from  data  presented  by  Robertson  et  al . 

(1980)  was  used. 

Figure  6-11  illustrates  three  curves  used  to  describe 
WR(I) .   The  previously  described  curve  of  Jones  et  al . 

(1986)  is  a  generalized  function  that  can  be  used  if  data  is 
not  available.   The  curve  derived  from  data  of  Robertson  et 
al.  (1980)  represents  a  high  probability  that  significant 
root  growth  would  occur  for  peanuts  in  very  deep  regions. 
This  is  not  consistent  with  data  from  soil  water  sensors  at 
the  lysimeter  installation  nor  with  observations  made  from  a 
PNUTGRO  evaluation  study  conducted  by  Boote  et  al.  (1989). 
Data  from  field  sensors  at  both  lysimeters  in  the  summer  of 
1988  showed  that  significant  water  use  occurred  no  deeper 
than  between  60  and  90  cm  in  a  Millhopper  sand.   Using  the 
same  root  function,  Boote  et  al.  (1989)  also  noticed,  under 
different  conditions,  that  water  extraction  was  observed  at 
much  shallower  depths  than  those  indicated  in  PNUTGRO. 

The  root  function  derived  for  this  study  was  a 
composite  of  the  Robertson  et  al.  (1980)  curve  and  an 
extrapolation  as  illustrated  in  Figure  6-11.   The 
extrapolated  curve  was  only  an  approximation  but  was  felt  to 
be  more  consistent  with  observed  sensor  responses  at  the 
lysimeter  installation.   This  modified  Robertson  curve 
served  as  a  starting  point  to  describe  the  root  weighting 


207 
function.   As  has  been  detailed,  feedback  from  soil  water 
sensors  modified  this  curve  as  the  season  progressed. 
Evapotranspjration  routine  modifications 

The  PNUTGRO  subroutine  WATBAL.FOR  was  modified  to  allow 
input  of  a  variable  which  scales  the  equations  for  potential 
evapotranspiration.   In  the  described  implementation  of  the 
knowledge  base,  the  variable  was  set  to  1.0  because  SENPOS 
did  not  modify  the  ET  equations.   The  original  Penman  ET 
equations  and  many  semi-empirical  forms  (including  PNUTGRO 's 
form  of  the  Ritchie  1985  equation)  were  derived  assuming  the 
crop  had  adequate  fetch  and  that  border  effects  were 
minimal.   The  crop  within  the  exposed  lysimeters  used  in 
this  study  was  susceptable  to  absorption  of  advectively 
transported  sensible  heat.   Under  conditions  favorable  to 
advective  transport  of  heat,  this  additional  energy  would 
increase  ET  over  model-based  estimates. 

In  this  study,  ET  measured  at  the  lysimeter  tracked  the 
modeled  ET  quite  well  although  measured  ET  was  greater  than 
modeled  ET  over  most  of  the  season.   Implications  of  these 
trends  in  future  rule  base  construction  will  be  outlined  in 
ensuing  discussions. 

Evaluations  Using  Field  Data 

In  order  to  test  the  parameter  adjustment  routines  of 
SENPOS,  daily  PNUTGRO  runs  using  the  IREP  weather  data  were 
made.   The  purpose  of  the  test  was  to  determine  if  model- 
based  representations  of  soil  water  potential  converged  on 
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sensor  readings  as  SENPOS  adjusted  model  input  parameters. 
The  test  also  verified  proper  operation  of  the  parameter 
adjustment  routines. 
Soil  Characteristic  and  Root  Distribution  Modifications 

Drying  cycles  during  periods  July  26  through  July  30 
and  August  19  through  August  2  3  were  chosen  to  test  the 
program.   The  period  in  July  was  the  same  one  used  to 
develop  the  parameter  adjustment  routines.   Figure  6-8 
indicates  the  effect  of  using  a  modified  DUL  (DUL  =  0.107) 
over  the  entire  test  period.   To  test  the  parameter 
adjustment  routines,  the  unmodified  soil  characteristics 
file  (with  the  original  DUL  values  of  0.086  cm/ cm)  was  used 
as  input  to  PNUTGRO. 

To  begin  the  test,  PNUTGRO  was  run  using  input  ET 
values,  the  weather  file  for  the  summer  of  1988,  the 
original  soil  characteristics  file,  and  initial  root 
weighting  factors  derived  from  Figure  6-11.   Using  a  screen 
editor,  soil  water  sensor  data  for  July  27  and  July  28  were 
manually  entered  into  SENRED.PRN,  the  sensor  input  file  to 
SENPOS.   SENPOS  was  then  run  on  July  28  (day  210).   Both 
model  and  sensor  derived  values  of  soil  water  content  and 
soil  water  suction  in  each  sensor  zone  were  recorded.   After 
the  July  28  run,  PNUTGRO  was  run  again  with  any  parameters 
that  might  have  been  changed  by  SENPOS.   During  each  PNUTGRO 
consultation,  soil  characteristics  that  are  used  in  the 
simulation  are  displayed  to  the  user.   The  user  can  then  see 
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if  any  parameters  have  been  changed  by  SENPOS.   For  this 
study,  the  parameters  DUL  and  WR(I)  in  each  soil  zone  were 
recorded  before  each  new  run  of  PNUTGRO.   SENPOS  and  PNUTGRO 
were  run  alternately  in  this  manner  until  July  31. 

Other  runs  were  implemented  between  August  19  and 
August  23  (days  232  to  236) .   The  first  run  of  SENPOS  was  on 
August  21  (day  234)  using  sensor  data  for  August  20  and 
August  21.   Parameters  that  were  adjusted  at  the  end  of  the 
July  runs  served  as  a  starting  point  for  the  August  21  run. 
The  August  runs  of  SENPOS  and  PNUTGRO  were  done  in  the  same 
manner  as  the  July  runs  except  that  the  sensor  readings 
input  to  SENRED.PRN  were  averaged  for  the  two  lysimeters. 
As  has  been  stated,  no  sensor  readings  for  the  south 
lysimeter  were  used  in  the  July  runs. 

Figure  6-12  illustrates  the  drained  upper  limit  value 
for  the  top  5  soil  zones  (down  to  60  cm)  increased  with  each 
run  of  SENPOS  until  day  235.   Composite  suction  values 
determined  by  the  model  were  greater  than  composite  sensor 
readings  necessitating  a  daily  change  in  DUL  values.   Figure 
6-13  indicates  the  model-based  suction  began  to  converge  on 
the  sensor-based  suction  in  July,  and  continued  convergence 
in  August  (Figure  6-14).   The  results  of  Figures  6-13  and  6- 
14  represent  the  combined  effects  of  changing  the  root 
weighting  factors  (WR(I))  as  well  as  the  DUL  values. 

The  SENPOS  procedures  RootDepth  and  WRModif  determine 
where  water  use  is  taking  place  (according  to  the  soil  water 
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sensors) ,  and  how  to  modify  root  weighting  factors  if  the 
model  and  sensors  do  not  agree  as  to  where  significant  water 
use  is  taking  place.   Figure  6-15  illustrates  a  comparison 
of  model  and  sensor  derived  rooting  depths  determined  by 
criteria  programmed  in  the  SENPOS  procedure  RootDepth.   As 
stated  earlier,  RootDepth  uses  the  deepest  sensor  to 
register  a  suction  increase  of  5  kPa  over  a  period  of  one 
day  to  indicate  the  sensor-based  rooting  depth.   The  deepest 
zone  to  register  a  suction  increase  greater  than  2  kPa  for 
the  model-based  case  indicates  the  model-based  rooting 
depth. 

In  Figure  6-15,  model-based  rooting  depths  showed  an 
increase  over  the  first  three  days  of  testing  in  July  (days 
210  to  212)  and  remained  high  to  day  213.   The  reason  for 
this  is  that  DUL's  were  still  low  on  days  211  and  212  and 
model-based  suctions  were  only  beginning  to  converge  on 
sensor  suctions,   with  DUL  values  still  low,  modeled 
suctions  were  inflated.   The  inflated  modeled  suctions 
resulted  in  inflated  suction  differences  in  all  soil  zones. 
Since  RootDepth  bases  rooting  depth  on  a  suction  difference 
greater  than  the  small  value  of  2  kPa,  responses  could 
easily  have  occurred  deep  in  the  soil.   Rooting  depth  values 
for  August  converged  as  the  DUL's  increased  and  modeled 
suction  differences  were  reduced  to  be  more  in  line  with 
sensor  suction  differences. 
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The  rooting  depth  registered  by  the  sensor  on  day  235 
(Figure  6-15)  was  zero.   This  value  is  not  the  correct 
rooting  depth,  but  was  indicated  as  such  using  the 
programmed  criteria.   The  sensors  did  not  indicate  a  suction 
increase  greater  than  5  kPa  because  soil  conditions  were 
still  wet  and  reductions  in  water  content  did  not  register 
large  increases  in  suction.   This  is  because  soil  water 
conditions  were  still  in  the  slowly  changing  part  of  the 
soil  moisture  characteristic  curve.   Using  a  single 
potential  difference  of  5  kPa  does  not  account  for  non- 
linearities  introduced  by  the  characteristic  curve.   Also, 
the  value  of  5  kPa  might  be  too  large.   A  better  criteria 
might  "track"  the  characteristic  curve  instead  of  using  a 
constant  value  of  5  kPa.   Using  a  constant  value  of  5  kPa 
for  the  sensors  and  2  kPa  for  the  model  was  not  seen  as  a 
problem,  however.   As  the  soil  dries,  changes  in  potential 
occur  more  rapidly  and  a  linear  approximation  becomes  more 
suitable. 

The  SENPOS  procedure  WRModif  was  triggered  if  sensor 
derived  rooting  depth  was  unequal  to  the  model  derived 
rooting  depth  determined  in  RootDepth.   A  factor  was  added 
to  values  of  WR(I)  if  the  sensor  derived  rooting  depth  was 
greater  than  the  model  derived  value.   Only  WR(I)  values  at 
depths  below  the  model  derived  rooting  depth  were  modified. 
If  the  sensor  derived  rooting  depth  was  less  than  the  model 
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derived  value,  the  factor  was  subtracted  from  the  weighting 
factors  below  the  sensor  derived  rooting  depth. 

Figure  6-16  illustrates  modifications  to  the  root 
weighting  factors,  WR(I) ,  in  July  (days  210-214) ,  and  August 
(days  235-238) .   The  July  plot  shows  that  weighting  factors 
were  reduced  on  day  212  in  the  15-30  cm  zone  and  were 
progressively  reduced  below  30  cm  during  the  entire  period. 
Progressive  reductions  below  30  cm  did  not  affect  water  use 
calculations  in  the  24  cm  zone  of  regulation  because 
reductions  in  the  lower  zones  were  not  added  proportionately 
to  the  upper  zones.   The  August  plot  shows  that  WR(I) 
increased  for  day  235  in  zones  below  30  cm.   The  factors 
were  reduced  at  shallower  depths  in  August  than  any 
reductions  that  occurred  in  July.   WR(I)  reductions  in  this 
zone  would  influence  model-based  water  use  calculations  in 
the  24  cm  regulation  zone. 

The  suction  results  for  August  (Figure  6-14)  can  be 
compared  to  the  results  where  the  DUL  was  forced  to  a  value 
of  0.107  cm/cm  for  the  entire  test  (Figure  6-17).   (Figure 
6-17  is  similar  to  Figure  6-8  for  July.)   The  curve  of 
Figure  6-14  representing  daily  modified  parameters  looks 
similar  to  the  curve  of  Figure  6-17  representing  the  effect 
of  forcing  the  DUL  to  0.107.   Since  the  DUL  value  (indicated 
in  Figure  6-14)  leveled  off  at  a  slightly  higher  value  than 
0.107  cm/cm,  closer  convergence  resulted. 
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Evapotranspiration  Routine  Modifications 

Although  the  present  parameter  adjustment  routines  do 
not  modify  the  ET  equations,  many  trends  can  be  observed 
comparing  model-based  ET  with  measured  ET.   Figure  4-8 
illustrated  a  comparison  of  modeled  and  measured  ET  rates 
over  the  season.   By  examining  trends  over  a  shorter  time 
scale,  more  detailed  observations  can  be  made. 

Figure  6-18  illustrates  an  ET  comparison  over  the 
period  of  August  12  (day  225)  to  August  29  (day  242) .   Data 
for  day  231  to  day  237  represent  a  drying  cycle  immediately 
after  a  high  intensity  rain  where  ET  measured  during  this 
period  should  be  close  to  potential  ET  rates.   During  this 
period,  measured  ET  was  greater  than  modeled  ET  by  an 
average  of  28  percent.   This  may  have  been  caused  by 
sensible  heat  being  transported  to  the  crop  from  a 
neighboring  field  or  a  moderate  vapor  pressure  deficit 
coupled  with  high  winds. 

All  days  where  modeled  ET  was  greater  than  measured  ET 
were  characterized  by  low  radiation  loads  (with  or  without 
rain).   On  days  226  and  238,  weather  conditions  were  cloudy 
with  no  rain.   As  was  mentioned  in  Chapter  3,  Ritchie  (1985) 
used  a  multiplier  of  1.1  on  the  ET  equation  to  account  for 
the  effects  of  unsaturated  air  and  increased  the  multiplier 
to  allow  for  advection  when  the  maximum  temperature  was 
greater  than  24°C.   In  PNUTGRO,  however,  the  multiplier  is 
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increased  when  the  maximum  temperature  exceeds  34°C  (Figure 
6-3). 

Lack  of  a  more  detailed  vapor  pressure  deficit  and 
advection  function  may  have  caused  inflated  ET  predictions 
at  low  radiation  levels.   The  ET  model  used  in  PNUTGRO  has 
an  advantage  of  requiring  few  inputs,  but  at  the  expense  of 
accuracy  on  a  short  term  basis.   Trends  in  relative 
humidity,  solar  radiation,  temperatures,  and  windspeed  could 
be  plotted  along  with  modeled  ET  and  measured  ET  from 
unexposed  lysimeters  to  develop  criteria  for  improving  the 
model.   At  least,  methods  could  be  implemented  to  better 
modulate  parts  of  the  model  to  consider  varying  weather 
conditions. 

If,  in  the  future,  rules  are  developed  to  modify  the  ET 
model,  methods  should  be  applied  separately  to  the  soil 
evaporation  and  transpiration  components.   This  is  very 
important  in  the  early  stages  of  crop  growth  because  the 
evaporation  component  is  a  large  part  of  the  total  ET. 
Although  sensor-based  feedback  would  be  difficult  to 
implement  in  the  earliest  parts  of  the  season,  information 
could  soon  be  obtained  as  roots  begin  to  proliferate.   Soil 
water  sensors  cannot  provide  reliable  information  on  soil 
evaporation  in  the  shallowest  soil  zones,  but  can  provide 
information  on  a  composite  of  soil  evaporation  and 
transpiration  in  zones  where  roots  proliferate. 
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Summary 
A  knowledge-based  system  for  irrigation  management  was 
constructed  using  results  from  lysimeter  field  experiments. 
An  expert  system  to  evaluate  the  suitability  of  sensor 
readings  used  to  automatically  calibrate  PNUTGRO  was  coded 
in  a  commercial  expert  system  shell,  VP-Expert.   Lysimeter 
field  data  was  used  to  develop  PNUTGRO  parameter  adjustment 
routines  in  the  Pascal  programming  language.   The  Pascal 
routines  adjusted  drained  upper  limit  (DUL)  and  root 
weighting  factors  (WR(I))  that  are  input  values  to  the 
PNUTGRO  crop  model.   Sets  of  field  data  from  July  and 
August,  1988,  were  used  to  verify  that  model-based  rep- 
resentations of  temporal  soil  water  conditions  converged  on 
sensor-based  representations. 
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Table  6-1.  Summary  of  pertinent  goals  for  rules  in  knowledge 
base  DATRUL  1. 


Rule  2 

Goal:  To  determine  if  sensor  readings  are  on  a  drying  cycle 

and  can  be  evaluated. 

Action:  User  is  informed  if  sensor  readings  can  be 

evaluated. 

Rules  3,4,5 

Goal:  To  find  number  of  sensor  banks  over  which  sensor  range 

checking  is  accomplished. 

Action:  None,  subgoal  for  another  rule. 

Rule  6 

Goal:  To  determine  if  range  checking  can  be  bypassed. 

Action:  None,  subgoal  for  another  rule. 

Rules  7-13 

Goal:  To  find  sensor  reading  out  of  its  calibrated  range  (if 

there  are  3  sensor  stations) . 

Action:  Flag  is  set  to  1  and  stored  in  spreadsheet  to 

indicate  out  of  range  condition.  User  is  informed  of  this 

occurrence. 

Rules  14-16 

Goal:  To  find  sensor  reading  out  of  its  calibrated  range  (if 

there  are  2  sensor  stations) . 

Action:  Flag  is  set  to  1  and  stored  in  spreadsheet  to 

indicate  out  of  range  condition.  User  is  informed  of  this 

occurrence. 

Rule  17 

Goal:  To  find  sensor  reading  out  of  its  calibrated  range  (if 

there  is  1  sensor  station)  . 

Action:  Flag  is  set  to  1  and  stored  in  spreadsheet  to 

indicate  out  of  range  condition.  User  is  informed  of  this 

occurrence. 

Rules  18-20  and  23-25 

Goal:  To  determine  if  any  one  of  three  sensors  is  drying 

faster  than  the  other  two. 

Action:  User  is  given  reasons  why  one  sensor  is  drying 

faster  than  the  others. 
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Table  6-1. 


continued. 


Rules  21-22  and  26-27 

Goal:  To  determine  if  any  one  of  two  sensors  is  drying 

faster  than  the  other. 

Action:  User  is  given  reasons  why  one  sensor  is  drying 

faster  than  the  other  one. 

Rules  28-30 

Goal:  To  find  a  faulty  or  misplaced  sensor. 

Action:  Flag  is  set  to  2  and  stored  in  spreadsheet  to 

indicate  faulty  or  mis-placed  sensor.  User  is  given  reasons 

for  the  false  reading. 
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Table  6-2.  English  translation  of  knowledge  system 
rules  in  FIELDRAW. 


Procedure  containing  rules  —  InputlnitialData 

Rule  — 

IF  (radiation  value  <  7)  and 

(it  did  not  rain  yesterday)  or 

(input  radiation  value)  >  30 

THEN  radiation  value  is  questionable. 

Rule  — 

IF  (maximum  air  temperature)  <  20  or 

(maximum  air  temperature)  >  45) 

THEN  temperature  value  is  questionable. 

Rule  — 

IF  (minimum  air  temperature)  <  5  or 

(minimum  air  temperature)  >  30) 

THEN  temperature  value  is  questionable. 

Remarks:  In  all  cases,  user  is  told  to  check  for  possible 
data  dump  or  instrumentation  failures.   Input  weather  file 
to  PNUTGRO  is  not  modified. 

Rule  — 

IF  (measured  rainfall  =  o)  and 

(user  observed  significant  rain) 

THEN  rain  gauge  reading  is  questionable. 

Remarks:  User  is  told  to  check  for  possible  data  dump  or 
instrumentation  failures,   input  weather  file  to  PNUTGRO  is 
modified  if  rain  is  the  only  questionable  value. 

Rule  — 

IF  (PAR  <  11)  or  (PAR  >  50) 

THEN  PAR  value  is  questionable. 

Remarks:  User  is  told  to  check  for  possible  data  dump  or 
^^"•^S  failures.   Input  weather  file  to  PNUTGRO  is 
™?,^   2  «.*?"  1S  the  °nly  ^stionable  value.   A  default 
value  of  PAR  is  sent  to  the  weather  file. 
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Table  6-3.  English  translation  of  knowledge  system 
rules  in  SENPOS. 


Procedure  containing  rules  —  Sprof ileModif 

Rule  — 

IF  (composite  sensor  suction)  > 
(composite  modeled  suction  +  10) 
THEN  subtract  value  from  DUL  in  soil 
characteristics  input  file. 

Rule  — 

IF  (composite  modeled  suction)  < 
(composite  sensor  suction  +  10) 
THEN  add  value  to  DUL  in  soil 
characteristics  input  file. 

Remarks:  In  both  cases,  DUL  is  modified  by  a  factor 
proportional  to  the  difference  in  modeled  and  sensor 
suction.   User  is  informed  of  the  modification. 


Procedure  containing  rules  —  RootDepth 

Rule  — 

IF  (one  day  increase  in  sensor  reading  >  5) 

THEN  assign  RootDepthSensor  to  sensor  depth. 

Rule  — 

IF  (one  day  increase  in  modeled  suction  >  2) 

THEN  assign  RootDepthModel  to  depth  of  sensor  in  modeled 

zone. 

Remarks:  Consequences  are  used  in  procedure  WRModif  to 
modify  root  weighting  factors.  User  is  informed  of  rooting 
depths  indicated  by  both  the  model  and  sensor. 
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Table  6-3. —  continued. 


Procedure  containing  rules  —  WRModif 


Rule  — 

IF  (RootDepthSensor)  >  (RootDepthModel) 

THEN  subtract  values  from  root  weighting  factors  below 

sensor  depth. 

Rule  — 

IF  (RootDepthSensor)  <  (RootDepthModel) 

THEN  add  value  to  root  weighting  factors  below  sensor  depth 

in  modeled  zone. 

Remarks:  Root  weighting  factors  are  modified  by  a  value 
proportional  to  the  relative  magnitude  of  root  weightinq 
factor. 


Procedure  containing  rules  —  WaterDepth 

Rule  — 

IF  (one  day  decrease  in  sensor  reading  >  5)  and 

(present  sensor  reading  <  7) 

THEN  irrigation  penetrated  to  that  depth. 

Remarks:  Consequence  is  used  in  procedure  Adjustlrrig  to 
adjust  irrigation  amounts. 
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Figure   6-1.    Block  diagram  of  knowledge-based  system. 
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C 

C 

C****  initialize 

C 


NSENS  =  0 
NREP  =  0 
NOUTO  =40 
N0UT1  =41 
NOUT2  =42 
NOUT3  =43 
NOUT4  =44 
NOUT5  =45 
OUTOOP  =  ' YES ' 
OUT10P  =  'YES' 
OUT20P  =  'YES' 
OUT30P  =  ' YES ' 
OUT50P  =  'YES' 
KOUTWA  =  2 
KOUTGR  =  2 
GAREA  =  1.E04 
AMTMIN  =2.54 


OPEN  FILE  TO  INPUT  LYSIMETER  ET  DATA 


OPEN  (21,  FILE  =  ' ETSET. DAT" , STATUS 
DO  100  I  =  1,12 
MON(I)  =  IMON(I) 
RNAME(I)  =  TNAME(I) 
RNAMEL(I)  =  TNAMEL(I) 
100       CONTINUE 


'OLD') 


CLOSE  (NOUTO) 

CLOSE  (NOUT1) 

CLOSE  (NOUT2) 

CLOSE  (NOUT3) 

CLOSE  (NOUT4) 

CLOSE  (NOUT5) 


C  CLOSE  ETINPUT  FILE 
C 

CLOSE  (21) 

STOP 

END 


Figure  6-2.  Modifications  to  GRO.FOR  to  allow  import 
of  experimentally  derived  ET  values. 
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1200  CONTINUE 

EEQ  =  SLANG*(2.04E-4-1.83E-4*ALBEDO)*(TD+29  ) 
EO  =  EEQ*1.1 

IF  (TMAX  .OT.  34.)  EO  =  EEQ* ( (TMAX-34 .) *0 . 05+1. 1) 

IF^(TMAX  .LT.  5.0)  EO  =  EEQ*0 . 01*EXP(0. 18* (TMAX+20 . 

C   MODIFICATION  IMPLEMENTED  10/9/89  TO  BYPASS  ET 

C_  CALC^LATI0NS  AN0  INPUT  ET  DATA  FROM  FIELD  LYSIMETERS 

IF  (JUL  .GE.  183)  THEN 

READ  (21,*)  EO 

ENDIF 

C 

EOS  =  EO*(1.-0.43*XHLAI) 
_IF_(XHLAI  .GT.  1.)  EOS  =  EO/1. l*EXP(-0. 4*XHLAI) 

C   ****SOIL  AND  PLANT  EVAPORATION  ROUTINE***** 
C 

C 


IF  (XHLAI  .LE.  3.0)  EP  =  EO* (1. -EXP(-XHLAI) ) 
IF  (XHLAI  .GT.  3.0)  EP  =  EO 
IF  (EP+ES  .GT.  EO)  EP  =  EO-ES 
GO  TO  2600 
2400  ET  =  ES 

CET  =  CET+ET 


C 

C   *****ROOT  GROWTH  AND  DEPTH  ROUTINE******* 

C 

C 

2600  CONTINUE 


3100  EP1  =  EP*0.1 


RWU(L)  =  RWU(L)*DLAYR(L)*RLV(L) 
TRWU  =  TRWU+RWU(L) 


Figure  6-3.  Modifications  to  WATBAL.FOR  to  import 
experimentally  derived  ET  values. 
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3  2  00  CONTINUE 
3300  WUF  =  1. 


C     MODIFICATION  TO  RWU  FUNCTION  WHEN  INPUTTING  ET  VALUES 

C     FROM  LYSIMETER  DATA 

c 

IF  (EP1  .LE.  TRWU)  WUF  =  EP1/TRWU 
IF  (JUL  .GE.  183)  WUF  =  EP1/TRWU 
TSW  =  0. 

DO  3500  L  =  1,NLAYR 

IF  (SW(L)  .LE.  LL(L))  GO  TO  3400 

RWU(L)  =  RWU(L)*WUF 

SW(L)  =  SW(L)-RWU(L)/DLAYR(L) 

IF  (SW(L)  .LT.  LL(L))  THEN 

RWU(L)  =  RWU(L)  -  (LL(L)  -  SW(L)  )  *DLAYR(L) 

SW(L)  =  LL(L) 

ENDIF 
3  4  00       CONTINUE 

TSW  =  TSW+SW(L)*DLAYR(L) 
3  500       CONTINUE 
PESW  =  TSW-TLL 
PESW  =  AMAX1(PESW,0.00) 
SWDF2  =  1. 

IF  (TRWU/EP1  .LT.  RWUEP1)  SWDF2  =  (1./RWUEP1) *TRWU/EP1 
3600  SWDF1  =1.  ' 


c 

C     MODIFICATION  TO  RWU  FUNCTION  WHEN  INPUTTING  ET  VALUES 
C     FROM  LYSIMETER  DATA 

C 

IF  (JUL  .GE.  183)  GO  TO  3750 

IF  (EP1  .LT.  TRWU)  GO  TO  3800 
3700  EP  =  TRWU*10. 
3750  IF  (EP1  .GE.  TRWU)  SWDF1  =  TRWU/EP1 

3800  ET  =  ES+EP 

CEP  =  CEP+EP 
CET  =  CET+ET 


ES 

=    0 

EP 

=    0 

ET 

=    0 

EO 

=    0 

WET1 

=    0 

RETURN 

END 

Figure  6-4.  Modifications  to  WATBAL.FOR  to 

use  experimentally  derived  ET  values. 
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Figure   6-5.    Soil  water  suction  results   from  sensors, 
model   using  unmodified  DUL,    and  model 
using  modified   DUL   for  July   26    -    29,    1988 
at  8   cm  depth. 
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Figure   6-6.    Soil   water  suction  results   from  sensors, 
model   using  unmodified  DUL,    and  model 
using  modified  DUL  for  July  26   -  29     1988 
at   20   cm  depth. 
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Figure  6-7.  Soil  water  suction  results  from  sensors, 
model  using  unmodified  DUL,  and  model 
using  modified  DUL  for  July  26  -  29,  1988 
at  40  cm  depth. 
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Figure   6-8 


Composite  soil  water  suction  results   from 
sensors,    model   using  unmodified  DUL  and  model 
using  modified  DUL  for  July  26   -   30,    1988   in 
24   cm   zone  of  regulation. 
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Figure  6-9.  Soil  water  characteristic  curve  for  Millhopper 
sand  showing  range  of  fast  changing  suctions. 
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C 

24  00  CONTINUE 

C 

C      MODIFICATION  TO  INPUT  VALUES  OF  WR(I)  WHICH 
C      HAVE  BEEN  MODIFIED  BY  THE  EXPERT  SYSTEM.   IMPLEMENTED  BY 
C      STEVEN  J.  THOMSON  10/9/89.  SET  IZ  TO  NO.  OF  SOIL  LAYERS 
C 

OPEN  (19, FILE  =  'WRMOD.DAT' , STATUS  =  'OLD') 

DO  2450  IZ  =  1,9 

READ(19,*)  WR(IZ) 
2450  CONTINUE 

REWIND  (19) 

CLOSE  (19) 
C 

C      INITIALIZE  SOIL  INFORMATION 

C 

C 

C 

DEPMAX  =  0 

DO  2500  JPX  =  1,NLAYR 
DEPMAX  =  DEPMAX+DLAYR(JPX) 
SW(JPX)  =  SWINIT(JPX) 
2  500       CONTINUE 


Figure  6-10.  Modifications  to  IPSOIL.FOR  to  allow  import 
of  root  weighting  factors. 
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Figure  6-11.  Root  weighting  function  WR(I)  as  a  function 
of  depth. 
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Figure  6-12.  Drained  upper  limit  value  of  the  top  5  soil 
zones  as  modified  by  SENPOS. 
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Figure   6-13 . 


Composite  soil  water  suction   results   from 
sensors,    model   using  unmodified   DUL  and  WR(I) 
and  model   using  daily  modified   DUL  and  WRm 
for  July  26  -  30,    1988   in  24   cm  zone  of 
regulation. 
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Figure   6-14.    Composite  soil  water  suction  results   from 

sensors,    model   using  unmodified  DUL  and  WR(I) 
and  model   using  daily  modified  DUL  and  WR(I) 
for  August   19   -   23,    1988   in  24   cm  zone  of 
regulation. 
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Figure  6-15.  Rooting  depth  as  indicated  by  model  and  sensor 
responses  to  drying. 
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Figure   6-16.    Root  weighting   factors   in  several   soil   zones 
as  modified  by  SENPOS   for  July    (top)    and 
August    (bottom) . 
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Figure   6-17.    Composite  soil  water  suction  results   from 

sensors,    model   using  unmodified   DUL  and  model 
using  modified   DUL   for  August    19    -    23,    1988 
in  24   cm  zone  of  regulation. 
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Figure  6-18.  Comparison  of  measured  and  modeled  ET  rates 
at  the  IREP  for  peanuts  from  August  12  - 
August  29,  1988. 


CHAPTER  VII 

SUMMARY,  CONCLUSIONS,  AND  SUGGESTIONS 

FOR  FUTURE  STUDY 

Summary 

A  knowledge-based  system  was  developed  to  apply  sensor 

based  feedback  to  water  balance  and  root  growth  components 

of  the  PNUTGRO  crop  growth  model.   The  purpose  of  this  study 

was  to  deliver  a  model  based  irrigation  scheduler  for 

peanuts  that  is  automatically  calibrated  by  readings  from 

soil  water  sensors.   A  field  study  was  undertaken  to  obtain 

data  for  PNUTGRO  parameter  adjustments  and  lab  tests  were 

conducted  to  determine  soil  water  sensor  response  times. 

Components  include  an  expert  system  to  evaluate  the 

suitability  of  sensor  readings,  a  modified  version  of  the 

PNUTGRO  crop  model,  Pascal  routines  that  use  input  data  and 

data  from  PNUTGRO  output  files  to  make  irrigation  scheduling 

decisions,  Pascal  routines  that  send  output  results  for 

analysis  and  refinement  of  parameter  adjustment  routines, 

Pascal  routines  that  use  both  heuristic  and  algorithmic 

approaches  to  perform  PNUTGRO  parameter  adjustments,  and  a 

spreadsheet  interface  between  the  expert  system  and  all 

other  parts  of  the  system. 
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Field  Study 

A  peanut  crop  was  planted  in  two  weighing  lysimeters  so 
that  the  water  balance  could  be  monitored.   Evapotrans- 
piration,  rainfall,  irrigation  and  drainage  quantities  were 
measured  hourly.   Soil  water  sensors  were  placed  in  both 
lysimeters  so  that  comparisons  could  be  made  between  model 
and  sensor  based  results.   These  results  were  used  to 
develop  a  sensor  diagnostic  expert  system  and  a  knowledge 
base  to  perform  parameter  adjustments  to  the  PNUTGRO  crop 
model . 

Drying  cycles  were  extracted  from  sensor  data  sets  to 
develop  the  knowledge  base.   Rooting  patterns  were  also 
inferred  based  on  the  relative  magnitudes  of  sensor 
readings.   Model  derived  and  actual  evapotranspiration  were 
compared  to  develop  future  criteria  for  refining  the  PNUTGRO 
water  balance. 
Expert  System  for  Sensor  Evaluation 

A  knowledge-based  system  was  developed  to  evaluate  the 
suitability  of  sensor  readings  used  to  make  parameter 
adjustments  to  the  PNUTGRO  crop  model.   A  decision  on  a 
sensor's  suitability  was  based  on  its  drying  response 
relative  to  other  sensors  in  the  field.   The  system  also 
detected  if  a  reading  was  out  of  the  sensor's  calibrated 
range.   The  user  was  informed  about  a  sensor's  reading  even 
if  it  was  judged  suitable  for  use  as  a  feedback  element. 
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Some  variability  was  tolerated  because  soil  characteristics 
in  field  areas  that  the  sensors  are  placed  can  vary. 

A  value  out  of  the  sensor's  calibrated  range  was 
treated  differently  than  a  value  indicating  a  faulty  sensor 
or  a  sensor  that  was  placed  improperly  in  the  root  zone.   An 
out  of  range  reading  could  still  be  used  in  parameter 
adjustment  routines  that  used  relative  drying  responses  to 
make  decisions.   The  root  distribution  adjustment  routines 
required  relative  drying  responses  and  did  not  require  a 
reading  to  be  accurate.   Readings  that  indicated  a  faulty  or 
improperly  placed  sensor  were  not  used  in  any  calculations. 
The  user  was  given  a  recommendation  to  either  service  or  re- 
locate the  sensor. 
Parameter  Adjustment  Routines 

Pascal  routines  were  developed  to  adjust  drained  upper 
limit  (DUL)  values  and  root  weighting  factors  that  are  sent 
to  the  PNUTGRO  crop  model.   Every  day  the  user  runs  the 
system,  present  sensor  readings  and  readings  from  the 
previous  day  are  compared  with  model  based  representations 
of  water  use.   Parameters  are  adjusted  for  the  next  run 
based  on  perceived  differences. 
System  Evaluations  Using  Field  Data 

The  lysimeter  data  were  used  to  develop  the  parameter 
adjustment  routines.   The  data  were  also  used  to  verify  that 
model  based  representations  of  temporal  soil  water 
conditions  converged  on  sensor-based  representations.   In 
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this  mode,  the  parameter  adjustment  routines  were  run  every 
day  during  the  evaluation  period,  just  as  a  user  would. 
Since  new  parameters  were  used  with  every  daily  run  of 
PNUTGRO,  better  predictions  of  when  to  irrigate  were 
achieved. 

Future  Improvements  to  Evaluations  and  System  Components 
Field  Study 

Readings  from  the  lysimeters  were  very  stable 
throughout  the  season.   BASIC  programs  that  were  developed 
to  reduce  the  data  allowed  detailed  evaluation  of  possible 
data  errors.   Future  experimental  designs  could  be  improved 
by  using  in-field  lysimeters  that  would  diminish  the 
influence  of  sensible  heat  advection  and  more  realistically 
approximate  wind  effects  as  derived  in  the  original  Penman 
(1963)  equations.   More  sensor  stations  and  the  inclusion  of 
tensiometers  would  also  be  desirable  so  that  responses  could 
be  compared  to  the  Watermark  sensors. 

An  automatic  system  to  read  sensors  on  an  hourly  basis 
would  provide  soil  water  information  on  a  shorter  time  scale 
and  permit  further  evaluation  of  sensor  response  times  to 
drying.   This  information  could  be  used  in  conjunction  with 
more  laboratory  studies  on  sensor  response  times  to  drying. 
These  studies  could  determine  the  feasibility  of  using  these 
sensors  as  feedback  elements  to  shorter  term  evapotrans- 
piration  models. 
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Expert  System  for  Sensor  Evaluation 

The  expert  system  for  sensor  diagnostics  could  be 
improved  by  coding  more  rules  for  other  sensors.   Rules  are 
presently  coded  for  Watermark  sensors  and  tensiometers. 
Rules  could  be  included  to  compare  responses  to  wetting, 
also.   For  example,  if  one  sensor  placed  relatively  deep 
responds  to  a  low  intensity  rain,  a  rule  might  indicate  that 
water  is  traveling  through  fissures  in  the  soil  caused  by  an 
improperly  packed  sensor.   Field  tests  using  more  sensors 
could  be  conducted  to  refine  the  knowledge  base. 

Many  of  the  rules  in  DATRUL_1  that  find  sensors  out  of 
their  calibrated  range  could  be  more  easily  coded  into 
Pascal  or  another  conventional  programming  language.   All  of 
rules  7  through  17  are  identical  to  each  other  in 
construction.   The  only  differences  pertain  to  which  sensor 
is  being  checked  for  an  out  of  range  reading  and  the  number 
of  stations  in  the  field  over  which  readings  are  checked. 
If  several  stations  were  in  the  field,  all  of  the 
combinations  required  would  yield  a  very  large  rule  base.   A 
Pascal  program,  for  example,  could  simply  loop  through  all 
readings  and  make  the  same  determinations  that  DATRUL_1  did. 
The  lower  limit  of  10  kPa  placed  on  the  sensor's  calibrated 
range  was  derived  from  Larson  (1987)  and  laboratory  data 
from  Thomson  and  Armstrong  (1987).   These  are  the  only  rules 
in  the  knowledge  base  that  are  based  less  on  heuristics  and 
more  on  "hard"  data.   All  other  rules  listed  in  Tables  6-1, 
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6-2,  and  6-3  that  make  decisions  regarding  sensor 
reliability  and  parameter  adjustments  involve  judgments 
based  on  the  lysimeter  data  and  past  experience. 
Parameter  Adjustment  Routines 

There  are  many  other  soil  and  water  balance  parameters 
that  could  be  evaluated  in  addition  to  the  ones  modified. 
For  example,  published  soil  moisture  characteristic  curves 
may  need  adjustment,  but  this  would  be  difficult  to 
implement  with  only  sensor  data  as  feedback.   To  address  the 
problem,  the  Pascal  routines  were  designed  to  accommodate 
many  different  soil  moisture  characteristic  curves.   A 
different  curve  could  be  chosen  and  the  combined  effects  of 
changing  the  DUL  and  characteristic  curve  could  be  examined. 
For  example,  the  published  curve  for  a  generic  medium  sand 
might  be  a  good  candidate  because  published  DUL  values  for  a 
medium  sand  are  close  to  the  DUL  value  that  indicated 
convergence  between  model-  and  sensor-based  soil  water 
potentials. 

A  very  important  fact  to  note  when  performing  parameter 
adjustments  is  that  many  variables  influence  the  other 
variables.   The  procedure  as  implemented  was  somewhat  of  an 
iterative  process,  therefore.   For  example,  if  the  first 
estimate  of  the  root  weighting  function  was  grossly  in 
error,   criteria  for  adjusting  DUL  might  not  have  been  met. 
Preliminary  runs  of  PNUTGRO,  for  example,  used  a  root 
weighting  function  derived  from  Robertson  et  al.  (1980). 
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PNUTGRO  outputs  indicated  high  water  use  in  deeper  zones  and 
wet  conditions  in  the  shallower  zones  where  sensors  were 
placed.   This  weighting  function  gives  high  weighting  to 
water  use  in  the  deeper  zones.   Sensor  readings  on  that  day 
indicated  stress  levels  were  approaching  while  model  results 
indicated  wet  conditions  still  existed  in  the  upper  zones. 
During  this  time,  irrigation  might  not  have  been  recomm- 
ended, and  the  crop  would  have  stressed.   When  using  the 
extrapolated  root  weighting  function  (Figure  6-11)  as  a 
first  guess,  however,  water  distributions  seemed  to  follow 
the  sensors  more  closely.   As  had  been  noted  in  Chapter  6, 
small  adjustments  to  the  root  weighting  function  thereafter 
had  much  less  influence  on  convergence  results  than  changing 
the  DUL. 
Programmed  System 

Alternative  methods  and  programming  languages  could  be 
used  for  parts  of  the  system.   The  system  as  implemented 
requires  the  user  to  have  VP-Expert  and  a  spreadsheet 
package  to  run  it.   The  Pascal  programs  are  DOS  executable 
files  and  do  not  require  a  shell.   The  spreadsheet  is  used 
only  because  VP-Expert  requires  it  for  data  handling.   If 
the  sensor  diagnostic  were  programmed  in  a  rule  development 
language  that  could  be  executed  from  DOS  and  dump  data  in 
ASCII  format,  no  shells  or  spreadsheets  would  be  required. 
TURBO  PROLOG  2.0  (Borland  International,  1988)  can  create 
executable  files  and  communicate  with  ASCII  data  bases.   An 
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advantage  that  VP-Expert  has  over  PROLOG,  however,  is  that 
rules  are  extremely  easy  to  code  and  the  knowledge  engineer 
does  not  need  to  be  a  proficient  programmer.   VP-Expert  has 
many  user-friendly  aids  to  allow  de-bugging  the  program, 
also.   PROLOG  would  require  the  knowledge  engineer  to  be  a 
proficient  programmer. 

The  code  as  written  requires  the  user  to  execute 
spreadsheet  macros  manually  using  single  key-strokes.   This 
was  done  so  that  each  part  of  the  system  could  be  de-bugged 
separately.   In  the  final  product,  the  macros  could  be 
selected  by  a  conditional  statement  and  the  proper  macro 
would  run  according  to  what  mode  it  is  in.   A  flag  variable 
could  be  loaded  into  the  spreadsheet  by  other  programs  and 
the  macro  could  test  this  flag  to  determine  which  macro  to 
execute. 

To  be  widely  accepted,  the  entire  product  should  be  DOS 
executable.   Conversion  of  the  sensor  diagnostic  to  another 
language  would  not  be  difficult.   All  Pascal  routines  could 
be  written  in  PROLOG  ,  but  this  would  be  a  momentous  task. 
The  Pascal  programming  structure  greatly  facilitated 
construction  of  other  routines  and  does  not  need  to  be 
changed  to  another  language.   Since  it  would  still  be 
desirable  to  have  a  data  base  between  the  sensor  diagnostic 
and  all  other  routines,  compiled  Pascal  routines  could 
communicate  with  any  executable  code  through  the  data  base. 
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Conclusions 
This  knowledge  system  would  be  an  excellent  tool  as  a 
model  based  irrigation  scheduler.   A  unique  feature  of  the 
system  is  that  the  model  is  automatically  calibrated  with 
results  from  user-entered  soil  water  sensor  readings.   The 
expert  system  for  sensor  diagnostics  constantly  monitors 
sensor  readings  to  look  for  possible  problems  so  that  the 
integrity  of  the  feedback  method  is  maintained.   As  the 
season  progresses,  better  estimates  of  water  use  and 
distributions  are  achieved  reducing  the  need  for  sensor 
feedback.   This  could  be  especially  important  if,  say,  an 
automatic  system  that  reads  sensors  becomes  defective  or  is 
struck  by  lightning.   The  model  (modified  up  to  the  point  of 
sensor  malfunction)  would  provide  a  more  accurate 
representation  of  water  use  and  distribution  and  schedule 
irrigation  by  itself  until  the  sensors  are  fixed. 

The  integrity  of  the  system  is  dependent  on  the 
accuracy  of  the  sensors.   If  the  sensors  were  to  drift  off 
calibration  significantly,  accuracy  of  the  system  would  be 
compromised.   Sensor  calibration  could  be  checked 
periodically,  but  this  would  not  be  practical  on  the  farm. 
One  method  of  making  gross  checks  on  system  integrity  would 
be  to  construct  a  rule  that  checks  if  irrigation  frequencies 
are  within  an  "expected"  interval.   If  the  model  calls  for 
irrigation  more  or  less  frequently  than  is  customary  under 
the  specific  soil/crop  conditions,  the  user  could  be 


248 
informed  of  this  and  corrective  action  could  be  suggested  or 
performed  internally  by  the  system.   A  sensor  whose  internal 
matrix  structure  changes  with  time  might  stray  off 
calibration  and  cause  problems  such  as  this.   The  present 
sensor  diagnostic  checks  for  single  "deviate"  sensors  but 
does  not  acknowledge  the  possibility  that  all  sensors  could 
drift.   This  can  occur  since  all  field  sensors  are  exposed 
to  the  same  factors  that  might  cause  their  calibration  to 
shift. 

A  real  test  of  the  system  would  be  to  see  how  it 
performs  under  different  field  conditions.   Verification 
with  one  data  set  was  accomplished  in  this  study.   Different 
soil  and  climate  conditions  could  indicate  the  validity  of 
adjustments  made  under  a  new  set  of  conditions.   This 
concept  is  readily  adaptable  to  many  different  crop  models 
and  can  be  applied  directly  to  any  crop  model  that  uses  the 
IBSNAT  (1986)  data  format.   Minor  changes  to  the  data 
input/output  routines  in  SENPOS  would  be  needed  to 
accommodate  different  data  structures. 

Suggestions  for  Future  Study 

The  real  utility  of  a  system  like  this  can  be  realized 
by  analyzing  various  irrigation  management  strategies  and 
maximizing  profit,  yield,  or  either  of  these  subject  to 
other  constraints.   As  has  been  stated,  all  irrigation 
management  objectives  have  one  provision  in  common.   That 
is,  irrigation  is  applied  at  some  trigger  level  to  refill  a 
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specified  zone  of  water  regulation.   These  levels  vary 
depending  on  the  management  objective. 

Studies  have  already  been  done  to  simulate  economic 
returns  by  making  several  simulation  runs  of  a  crop  model 
using  different  irrigation  management  strategies.   Boggess 
et  al.  (1983)  made  several  runs  of  SOYGRO  (Wilkerson  et  al., 
1983)  with  several  combinations  of  hypothetical  irrigation 
thresholds  and  amounts  of  water  per  application.   Crop 
yields  were  displayed  under  these  hypothetical  strategies. 
Net  economic  return  was  expressed  as  a  simple  function  of 
irrigation  costs  vs.  yield  reduction. 

Hood,  et  al.  (1985)  developed  growth  phase  dependent 
strategies  for  SOYGRO.   SOYGRO  was  modified  to  allow  for 
irrigation  management  strategies  that  are  phenology 
dependent.   Simulated  irrigation  strategies  applied  water 
between  a  threshold  and  refill  level  which  were  percentages 
of  maximum  available  water.   Boggess  et  al.  (1983)  and  Hood 
et  al.  (1985)  pointed  out  that  the  usefulness  of  the  model 
is  dependent  on  the  accuracy  of  the  simulation  model  results 
under  applicable  field  conditions. 

A  problem  with  crop  growth  simulation  models  is  the 
accuracy  of  results  under  specific  field  conditions.   Hood 
et  al.  (1985)  indicated  that  their  irrigation  management 
strategies  using  SOYGRO  would  probably  not  be  applicable 
under  other  growing  conditions. 
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The  study  presented  here  already  exposed  the  need  for 
field-specific  calibration.   Although  simulated  yield  was 
not  a  variable  of  interest  in  this  study,  it  is  directly 
influenced  by  the  same  parameters  that  caused  differences  in 
modeled  and  measured  soil  water  status.   It  has  been 
acknowledged,  for  example,  that  root  distribution  functions 
are  highly  variable  and  limited  data  exists.   If  an 
empirically  based  function  is  used  that  indicates 
significant  water  use  at  deeper  depths  than  those  observed, 
the  crop  may  not  indicate  stress  although  it  may  actually  be 
stressing.   The  simulated  result  would  indicate  no  yield 
reduction  even  though  a  reduction  in  yield  might  actually  be 
occurring.   The  model  used  in  this  study,  with  its  self- 
calibrating  features,  can  provide  more  accurate,  field- 
specific  estimates  of  soil  water  conditions.   If  an  accurate 
growth  phase  dependent  function  has  been  developed  for  the 
modeled  crop  that  relates  soil  water  content  (or  potential) 
to  yield  reduction,  more  accurate  representations  of  yield 
can  be  achieved  for  economic  analyses. 

Optimum  irrigation  trigger  potentials  for  peanuts  which 
are  a  function  of  days  post-emergence  could  be  derived  from 
runs  of  PNUTGRO  and  programmed  into  SENPOS  (the  parameter 
adjustment  program  developed  for  this  study) .   An  extension 
of  this  system  could  be  developed  using  the  analysis 
routines  of  SENPOS.   Since  SENPOS  weights  soil  water 
contents  in  PNUTGRO  soil  zones  around  any  sensor  depth. 
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modeled  soil  water  contents  can  be  converted  to  potential 
using  the  soil  moisture  characteristic  curve  and  optimum 
trigger  potentials  could  be  used  as  threshold  values  for 
irrigation.   A  family  of  curves  could  be  developed  that 
specify  optimum  trigger  potentials  at  various  stages  of 
growth.   Each  curve  might  represent  a  particular  management 
objective  (maximum  yield  or  maximum  net  return) .   Using 
trigger  potentials  as  a  function  of  growth  stage  is 
attractive  because  the  soil  water  sensors  used  as  feedback 
elements  also  register  soil  water  potential. 
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APPENDIX  A 

COMPUTER  PROGRAM  TO  READ  LOAD  CELL  OUTPUT  AND 

EXCITATION  VOLTAGES  FOR  CALIBRATION 


10  '  ***   PROGRAM  INITIALIZATION  **** 

2  0  CLS 

30  INPUT  "SET  THE  CURRENT  DATE  MM-DD-YY   " , DAT$ 

40  DATE$=DAT$ 

50  PRINT  "" 

60  INPUT  "SET  THE  CURRENT  TIME  HH:MM   " , TIM$ 

70  TIME$=TIM$ 

80  DEF  SEG  =  &HC000        'STARTING  SEGMENT  OF  ROM  CALL 

90  CMD$  =  "SYSCON  MAD=6,  CIC=1,  NOB=l ,  BAO  =  &H300" 

100  IE488  =  0 

110  A%=0 : FLG%=0 : BRD%=0 

12  0  CALL  IE488  (CMD$,  A% ,  FLG% ,  BRD%)       'CONFIGURE  SYSTEM 

130  IF  FLG%  <>  0  THEN 

PRINT  "INSTALLATION  ERROR,  CODE  =" ;HEX$ (FLG%)  :  END 
140  ' 

150  '  ***  CONFIGURE  INSTRUMENTS  *** 

160  ' 

170  CMD$  =  "CONFIG  TALK=1, LISTEN=1, 3" :GOSUB  880 
180  ' 

190  '  ***  SET  INSTRUMENTS  TO  REMOTE  OPERATION  *** 

200  ' 

210  CMD$  =  "REMOTE  l":GOSUB  880 

220  CMD$  =  "REMOTE  3":GOSUB  880 

230  ' 

240  '  ***  OUTPUT  DVM  CONFIGURATION  *** 

250  ' 

260  CMD$  =  "OUTPUT  1[$+]" 

270  A$  =  "VR7D5T1I1,":G0SUB  880 

1  DC, AUTORANGE, 20/SEC, LOCKOUT 

280  ' 

290  '  ***  ACTIVATE  TIMER  *** 

300  ' 

310  ON  TIMER  (60)  GOSUB  380 

32  0  TIMER  ON 

330  '  LOOP 

340  GOTO  330 

350  ■ 

360  '  ***  RETRIEVE  DATA   *** 

370  ' 

380  OPEN  "A: CELLS. DAT"  FOR  APPEND  AS  #1 

400  PRINT  #1,DATE$ 
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420 
430 
460 
470 
480 
490 
500 
510 
520 
530 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
870 
880 
890 

900 


CLOSE 

I  CHAN  =0 

IF  (ICHAN  >  17)  THEN  CLOSE  #1: RETURN    'IF  ALL  CHANNELS 

'READ,  CYCLE 

ILYS=  700+  ICHAN 

CMD$  =  "OUTPUT  3[$+]" 

A$=STR$ (ICHAN) +",":GOSUB  880    'SELECT  CHANNEL 

CMD$  =  "TRIGGER  l":GOSUB  880    'TRIGGER  DVM 

A$  =  SPACE$(25)  'CLEAR  DATA  STRING  BUFFER 

CMD$  =  "ENTER  1 [$, 0, 18] " :GOSUB  880   'READ  DATA  FROM  DVM 

CELL  =  VAL  (A$) 

PRINT  "TIME   ", -TIMES,"  CHANNEL" ; ILYS , "  VOLTAGE  ";CELL 
i 

•         ***  STORE  LOAD  CELL  DATA  *** 
i 

OPEN  "A: CELLS. DAT"  FOR  APPEND  AS  #1 
PRINT  #1,TIME$;ILYS;CELL 
ICHAN  =  ICHAN  +1 
CLOSE  #1 

GOTO  460 
i 

CALL  IE488  (CMD$,  A$,  FLG% ,  BRD%) 
IF  FLG%  <>  0  THEN 

PRINT  "IB  ENTRY  ERROR" ;HEX$ (FLG%) , "  at  ",CMD$:END 
RETURN 


10 

20 

25 

30 

40 

50 

60 

70 

80 

90 

92' 

95' 

96' 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 


APPENDIX  B 

COMPUTER  PROGRAMS  TO  REDUCE  LOAD  CELL  DATA 

FOR  CALIBRATION 

1  THIS  PROGRAM  READS  LOAD  CELL  DATA  FROM  A  LARGER  DATA 
1  SET.  DATA  IS  SORTED  AND  STORED  INTO  A  SMALLER  FILE, 
1  "CELLS2.DAT". 


OPEN  "I",#1,"A:CELLS.DAT" 

INPUT* 1,DAT$ 

INPUT#1,  STRG$ 

CHAN$=  MID$  (STRG$,10,3) 

IF  EOF(l)  THEN  CLOSE  #1:END 

**  READ  ONLY  LOAD  CELL  CHANNELS  FOR  SOUTH  LYSIMETER  ** 


>  "717"  THEN  GOTO  60 

>  "715"  THEN  GOTO  70 


IF  CHAN$ 

IF  CHAN$ 

IF  CHAN$  >=  "712"  THEN  GOTO  160 

IF  CHAN$  >=  "708"  THEN  GOTO  70 

IF  CHAN$  >=  "704"  THEN  GOTO  160 

GOTO  70 

OPEN  "A: CELL2.DAT"  FOR  APPEND  AS  #2 

PRINT#2,STRG$ 

CLOSE  #2 

GOTO  70 
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THIS  PROGRAM  READS  LOAD  CELL  DATA  FROM  A  LARGER  DATA 
SET.  OUTPUT  VOLTAGES  IN  MV/VOLT  ARE  CALCULATED  BY 
DIVIDING  OBSERVED  OUTPUT  VOLTAGE  OF  EACH  CELL  BY  THE 
MEASURED  EXCITATION  VOLTAGE  AT  THE  CELL.  DATA  IS  STORED 
IN  A  FILE  CALLED  "CELL3.DAT" 


10 

20 

30 

35 

40 

45 

47 

50  DIM  REF$(5) ,VOLT$(5) ,MARTIM$(5) ,STRG$(5) 

60  OPEN  "I", #1, "A: CELL2.DAT" 

70  FOR  L=  1  TO  4 

8  0  INPUT  #1,  STRG$(L) 

100  IF  EOF(l)  THEN  CLOSE  #1:END 

105  MARTIM$(L)=  LEFT$  (STRG$(L),8) 

130  REF$(L)  =  MID$  (STRG$ (L) , 14 , 10) 

140  NEXT  L 

150  FOR  L=  1  TO  4 

160  INPUT  #1,  STRG$(L) 

180  VOLT$(L)  =  MID$  (STRG$ (L) , 14 , 10) 

190  NEXT  L 

200  OPEN  "A: CELL3.DAT"  FOR  APPEND   AS  #2 

210  FOR  L  =  1  TO  4 

220  VOLT(L)  =  VAL(VOLT$(L)) 

230  REF(L)  =  VAL(REF$(L)) 

240  PRINT  VOLT(L) ,REF(L) 

250  MW(L)=  VOLT(L)/REF(L) 

260  PRINT  #2,MARTIM$(L)  ,MW(L) 

270  NEXT  L 

280  CLOSE  #2 

290  GOTO  70 
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10  ■ 

2  0  •  THIS  PROGRAM  CREATES  A  CALIBRATION  DATA  FILE  FOR  LOAD 

3  0  '  CELLS  SO  THAT  THE  DATA  CAN  BE  IMPORTED  TO  A  SPREADSHEET 
35  '  AND  GRAPHICALLY  DISPLAYED 

40  ' 

50  DIM  REF$(5) ,MINUTE$(5) ,MARTIM$(5) ,STRG$(5) 

60  IMARK  =3 

65  MINUTE$(1)=  "56" 

70  OPEN  "I", #1, "A: CELL3.DAT" 

8  0  FOR  L=  1  TO  4 

90  INPUT  #1,  STRG$(L) 

95  ' 

96  '*  STORE  ONLY  LOAD  CELLS  CALIBRATED  DURING  TIME  PERIOD  * 

98  '  *  FOR  SOUTH  LYSIMETER  * 

99  ' 

110  IF  MINUTE$(1)=»10"  THEN  IMARK=1 

120  IF  MINUTE$(1)="22"  THEN  IMARK=2 

130  IF  MINUTES (1) ="34"  THEN  IMARK=4 

140  MARTIM$(L)=  LEFT$  (STRG$(L),8) 

150  MINUTE$(L)=  MID$  (STRG$ (L) , 4 , 2) 

160  REF$(L)  =  MID$  (STRG$ (L) , 16, 14 ) 

165  PRINT  STRG$(L) 

170  NEXT  L 

190  OPEN  "A: CELL4.DAT"  FOR  APPEND   AS  #2 

200  PRINT  #2, MARTIM$( IMARK), REF$( IMARK) 

210  CLOSE  #2 

215  IF  EOF(l)  THEN  CLOSE#l:END 

220  GOTO  80 


APPENDIX  C 

COMPUTER  PROGRAMS  TO  EXTRACT  AND  SORT  LOAD  CELL  DATA 

FOR  SPREADSHEET  ANALYSIS 

10  '    THIS  PROGRAM  EXTRACTS  LOAD  CELL  DATA  FROM  THE 

11  '    LARGER  DATA  SET  AND  MAKES  A  FILE  CALLED  ET1 .  DAT 
13  ' 

20  INPUT  "NORTH  OR  SOUTH  LYSIMETER?  ",LYS$ 

3  0  PRINT  "■' 

40  INPUT  "ENTER  BEGINNING  DATE  FOR  PLOTS,  MM-DD  " , DATS 

50  PRINT  "" 

60  INPUT  "ENTER  ENDING  DATE  FOR  PLOTS,  MM-DD  " , ENDATS 

70  PRINT  "" 

8  0  INPUT  "ENTER  NO. OF  CHANNELS  READ  IN  THE  DATA  SET  " ,  LIMDAT 

110  SDAT$=  RIGHT$  (DAT$,2)         'EXTRACT  DESIRED  BEGIN  DAY 

115  EDAT$=  RIGHT$(ENDAT$,2)        'EXTRACT  DESIRED  LAST  DAY 

120  OPEN  "I",#1,"B:LYS.DAT" 

130  INPUT  #1,DAT1$ 

135  IF  RIGHTS  (DAT1$,4)  <>  "1988"  THEN  INPUT  #1,DAT1$ 

150  MDAT$=  MID$  (DAT1$,4,2)     'EXTRACT  ACTUAL  DAY  IN  DATA  SET 

160  IF  MDAT$  <>  SDAT$  THEN  GOTO  600   'IF  DATE  NOT  FOUND 

164  ■ 

165  '      ***  GET  DATA  ***** 

166  ■ 

168  IF  LYS$  =  "SOUTH"  THEN  GOTO  400 
170  INPUT  #1,STRG$ 
180  CHAN$=  MID$(STRG$,10,3) 

190  ' 

191  '     ***  SORT  DATA  *** 

192  ' 

195  IF  EOF(l)  THEN  CLOSE  #1:END 

197  IF  CHANS  >  "717"  THEN  GOTO  700 

200  IF  CHAN$  >  "711"  THEN  GOTO  170 

205  IF  CHAN$  >=  "708"  THEN  GOTO  500 

210  IF  CHAN$  >=  "704"  THEN  GOTO  170 

220  GOTO  500 

397  ' 

398  ' 

399  ' 

400  INPUT  #1,STRG$ 

401  CHAN$=  MID$(STRG$,10,3) 

404  IF  EOF(l)  THEN  CLOSE  #1:END 

405  IF  CHAN$  >  "717"  THEN  GOTO  700 
410  IF  CHAN$  >  "715"  THEN  GOTO  400 
415  IF  CHAN$  >=  "712"  THEN  GOTO  500 
420  IF  CHAN$  >=  "708"  THEN  GOTO  400 


'GO  TO  NEXT  CLUSTER 


'PICK  UP  STRING 
'EXTRACT  CHANNEL  NUMBER 


***  GET  DATA  FOR  SOUTH  LYSIMETER  *** 


'PICK  UP  STRING 
'EXTRACT  CHANNEL  NUMBER 
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430  IF  CHAN$  >=  "704"  THEN  GOTO  500 
435  GOTO  400 

498  • 

499  '     ***  PUT  SORTED  DATA  IN  FILE  *** 

500  OPEN  "B:ET1.DAT"  FOR  APPEND  AS  #2 
510  PRINT  #2,STRG$ 

520  CLOSE  #2 
53  0  GOTO  168 

599  ' 

600  FOR  1=  1  TO  LIMDAT  'LOOP  TO  NEXT  GROUP  OF  DATA 
650  INPUT  #1,STRG$ 

675  NEXT  I 

680  GOTO  130  'PICK  UP  ANOTHER  DATE 

700  DAT3$=  MID$(STRG$,4,2)     'EXTRACT  ACTUAL  DAY  FROM  DATA  SET 

705  IF  EDAT$  <>  DAT3$  THEN  GOTO  168 

710  CLOSE: END 
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10  ' 

20  '  THIS  PROGRAM  FURTHER  REDUCES  THE  LOAD  CELL  DATA  SET  AND 

30  '   CREATES  A  FILE  CALLED  ET2 . DAT 

40  ' 

50  DIM  REF$(5) ,VOLT$(5) ,MARTIM$(5) ,STRG$(5) 

60  OPEN  "I",#1,"B:ET1.DAT" 

70  FOR  L=  1  TO  4 

80  INPUT  #1,  STRG$(L) 

100  IF  EOF(l)  THEN  CLOSE  #1:END 

105  MARTIM$(L)=  LEFT$  (STRG$(L),8) 

130  REF$(L)  =  MID$  (STRG$ (L) , 14 , 10) 

140  NEXT  L 

150  FOR  L=  1  TO  4 

160  INPUT  #1,  STRG$(L) 

180  VOLT$(L)  =  MID$  (STRG$ (L) , 14 , 10) 

190  NEXT  L 

200  OPEN  "B:ET2.DAT"  FOR  APPEND   AS  #2 

210  FOR  L  =  1  TO  4 

220  VOLT(L)  =  VAL(VOLT$(L) ) 

230  REF(L)  =  VAL(REF$(L)) 

240  PRINT  VOLT(L) ,REF(L) 

250  MW(L)=  VOLT(L)/REF(L) 

260  PRINT  #2,MARTIM$(L)  ,MW(L) 

270  NEXT  L 

280  CLOSE  #2 

290  GOTO  70 
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THIS  PROGRAM  CREATES  A  DATA  FILE  FOR  LOAD  CELLS. 
VOLTAGE  VS.  TIME  IS  GENERATED  SEPARATELY  FOR 
EACH  LOAD  CELL.  RESULTING  FILE  IS  CALLED  ET3 . DAT 


10 

20 

30 

35 

40 

50  DIM  STRG$(500) 

60  ILOT=l 

70  IMARK  =0 

80  L=l 

90  OPEN  "I",#1,"B:ET2.DAT" 

100  IMARK  =  IMARK+1 

110  IF  IMARK  =  5  THEN  IMARK  =1:L=L+1 

12  0  INPUT  #l,SOR$ 

130  IF  IMARK  =  ILOT  THEN  STRG$ (L) =SOR$ 

14  0  IF  EOF(l)  THEN  GOTO  165 

150  GOTO  100 

160  • 

165  CLOSE  #1 

170  OPEN  "B:ET3.DAT"  FOR  APPEND  AS  #2 

180  FOR  I  =  1  TO  L 

190  PRINT  #2,STRG$(I) 

2  00  NEXT  I 

210  CLOSE  #2 

220  ' 

230  IMARK  =  0 

240  L=l 

250  ILOT=ILOT+l 

255  IF  ILOT  =5  THEN  END 

260  GOTO  90 


APPENDIX  D 

PROGRAMS  AND  FILES  USED  IN  KNOWLEDGE 

BASED  SYSTEM 

Directory  -  C:\VPEXPERT 


Program,  Knowledge 
Base,  or  File 


Function  or  Contents 


PSTART.KBS 
DATRUL_1 . KBS 

IFAS .  EXE 
SENRED.WKS 

FIELD.BAT 

FIELD1_F.BAT 

FIELD1_L.BAT 

FIELD2 . BAT 
FIELD5 . BAT 


Knowledge  base  driver 

Knowledge  base  for  sensor 
evaluation 

IFAS  credit  logo 

Worksheet  for  sensor  data  and 
data  manipulation  macros 

DOS  Batch  file  called  by  PSTART 
to  load  IFAS. EXE  at  beginning  of 
consultation 

DOS  Batch  file  called  by  PSTART 
to  load  FIELDRAW.EXE  for  sensor 
data  input 

DOS  Batch  file  called  by  PSTART 
to  load  FIELDRAW.EXE  for  sensor 
data  input  and  SENRED.WKS 
spreadsheet. 

DOS  Batch  file  called  by  user  to 
load  SENRED.WKS  spreadsheet. 

DOS  Batch  file  called  by  user  to 
load  PNUTGRO. 
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Directory  -  C:\PNUTGRO 


Program  or  File 

GRO.EXE 

0UT2 . PN 

OUT3 .  PN 

SPROFILE.PN2 
UFGA0511.W88 

UFGA8801.PN8 
INITS15.DAT 

WRMOD.DAT 
ETMOD.DAT 
ETSET . DAT 
INITDAY.DAT 


Function  or  Contents 


PNUTGRO  crop  growth  model. 

PNUTGRO  output  file  that  shows 
root  length  densities  in  soil 
zones  through  the  season. 

PNUTGRO  output  file  that  shows 
evapotranspiration  and  soil  water 
contents  in  soil  zones  through 
the  season. 

PNUTGRO  soil  characteristics 
file. 

PNUTGRO  weather  input  file 
modified  by  parameterization 
routines. 

PNUTGRO  parameters  file.   File  is 
accessed  by  parameterization 
routines  to  determine  which 
soil's  characteristics  to  modify. 

File  containing  initial 
conditions  of  soil  water  content 
in  each  soil  zone.   Values  are 
used  to  reset  initial  soil  water 
conditions  any  day  of  the  season. 

File  containing  root  weighting 
factors  modified  by  parameter 
adjustment  routines. 

File  containing  coefficient  to 
modify  PNUTGRO  modeled 
evapotranspiration . 

File  containing  values  of 
evapotranspiration  measured  at 
lysimeters. 

File  containing  day  to  re- 
initialize soil  water  contents 
for  tests  of  PNUTGRO. 
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Directory  -  C:\TURBO 
Program  or  File       Function  or  Contents 


FIELDRAW.EXE 


SENPOS.EXE 


Allows  input  of  soil  water  sensor 
and  weather  data.  Program 
modifies  PNUTGRO  weather  file. 

Calculation,  analysis,  PNUTGRO 
parameter  adjustment,  and 
irrigation  scheduling  routines. 


Directory  -  C:\LOTUS 

Program  or  File       Function  or  Contents 


AUT012  3.WK1 


Autoexec  worksheet  macro  that 
calls  SENRED.WKS  when  DOS  is 
instructed  to  load  spreadsheet 
program. 


Directory  -  A:\ 
Program  or  File 


Function  or  Contents 


SEN1.DAT  -  SEN6.DAT 


STARTEXT . 


PAS FLAG. 


SENRED.PRN 


SENFLAGS.PRN 


IRROFSET.DAT 


Soil  water  sensor  data, 
for  each  station. 


One  file 


Introductory  text  to  knowledge 
based  system. 

Flag  accessed  by  FIELDRAW  to 
determine  if  at  least  two  days  of 
sensor  readings  are  in  files. 

Sensor  data  compressed  by 
spreadsheet  macro  and  output  in 
ASCII  format  for  use  by  SENPOS. 

Counters  and  flags  imported 

to  spreadsheet  to  regulate  data 

flow. 

Amount  of  water  to  add  or 
subtract  for  subsequent 
irrigations. 


APPENDIX  E 
'PSTART",  KNOWLEDGE  BASE  DRIVER 


BKCOLOR  =  1; 
ACTIONS 
COLOR  =  14 
BCALL  FIELD 

WHILEKNOWN  BEGINTEXT 

RECEIVE  A:\STARTEXT, BEGINTEXT 
DISPLAY  "{BEGINTEXT)" 

END 
DISPLAY  "PRESS  RETURN  TO  CONTINUE"" 
CLS 
RECEIVE  A:\PASFLAG,PASVAR 


FIND 


LOTUS  CALL; 


RULE  0 

IF  PASVAR  =1.0 

THEN  LOTUS_CALL  =  FALSE 

BCALL  FIELD1_F 

DISPLAY  "All  data  for  the  first  day  has  been  entered. 

With  tomorrows  data,  we  can  activate  the  schedulinq  proqram 

DISPLAY  "  " 

DISPLAY  "PRESS  RETURN  TO  CONTINUE""; 

RULE  1 

IF  PASVAR   <>  1.0 

THEN  LOTUS_CALL  =  TRUE 

DISPLAY  "Enter  todays  sensor  and  weather  data  .  When 

spreadsheet  is  loaded,  press  Alt-A  to  import  sensor  data, 

then  save  the  file  and  quit  by  pressinq  Alt-S." 

DISPLAY  "  " 

DISPLAY  "PRESS  RETURN  TO  CONTINUE"" 

BCALL  FIELD1_L 

DISPLAY  "All  data  necessary  for  execution  has  been  entered. 

You  now  need  to  consult  the  knowledqe  base  DATRUL  1." 

DISPLAY  "  "  - 

DISPLAY  "PRESS  RETURN  TO  CONTINUE""; 
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APPENDIX  F 

"FIELDRAW",  PROGRAM  TO  INPUT  DATA  AND  MODIFY 

WEATHER  FILE 


Program  Sensors; 

USES  dos , crt , gdriver , printer , gkernel ; 

VAR 

Savechar,ParfacS, JulS  :  string  [5]; 
Line,Linel,Line2,Textline  :  string  [80]; 
Senloc  :  array  [1..30]  of  integer; 
Lsen,Rsen,Lxsen,Rxsen  : integer; 
CH,Savl,Sav2,Resl,Savec,Stiv  :  integer; 
I, L,C,P, Number:  integer; 
X1,X2,Y1,Y2:  integer; 
Dat, Jul, Tim, Senred, Banks  :  integer; 

Srad,Tmax,Tmin,Parfac, Par, Spvar, Rain, Sensorpass  :  real; 
ExitLoop,WFlag  :  boolean; 
Parflag,RadFlag, Observed  :  char; 
Yorn, First  :  char; 

SensorFile,WeatherFile,WeatherFile2  :  Text; 
SenFlag,StarTem,SprFlag  :  Text; 

procedure  bug; 
begin 

while  ReadKey  =  (  '•)  do; 
end; 

procedure  Intro; 
begin 

reset (StarTem) ; 
while  not  eof (StarTem)  do 
begin 

readln  (StarTem, Textline) ; 
writeln(Textline) ; 
end; 
Close (StarTem) ; 
end; 
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procedure  TakeData; 
begin 
L  :=  1; 
clrscr; 
writeln( '  ' )  ; 

write  ('How  many  sensors  are  you  reading  at  station  ' ,C, '  ?   '); 
readln  (Number) ; 
writeln  ( '  ' )  ; 

writeln  ('Enter  sensor  depths  and  spacings  (cm)  in  sequence1); 
writeln  ('Hit  return  after  each  entry  •); 

while  ExitLoop  =  False  do 
begin 

Readln  (CH) ; 
SenlocfL]  :=  CH; 
L  :  =  L+l; 

If  L  =  (Number*2)+1  then  ExitLoop  :=  True; 
end; 
end; 

procedure  WriToFile; 
begin 

L  :=  1; 

append  (SensorFile)  ; 

(*  Write  total  banks  and  bank  markers  *) 

write  (SensorFile, Banks, C:2)  ; 

repeat 

write  (SensorFile, SenlocfL] :3) ;  (*  write  sensor  locations  *) 
L  :=  L+l;  ' 

until  L  =  (Number*2)+1;  writeln  (SensorFile,'  '); 
Close  (SensorFile) ; 
end; 

procedure  WriDatim; 
begin 

append (SensorFile) ; 

write  (SensorFile, Dat: 3, Tim: 5) ;  (*  write  date  and  time  *) 

Close  (SensorFile) ; 
end; 

procedure  WriFlags; 

(*  Write  flags  to  Senf lags. Dat  *) 
begin 

rewrite (SenFlag) ; 

(*  Position  values  for  proper  spreadsheet  placement  *) 
For  P  :=  1  to  18  do 
begin 

writeln (SenFlag, •  ');   (*  write  blank  spaces  *) 
end; 

writeln(SenFlag,0,Number:3) ;  (*  write  no  of  sensor  positions  *) 

(*  Write  Modeflag  =  1  telling  spreadsheet  macro  to  import  *) 
(*  flag  and  sensor  data  files,  NOT  USED  YET.  *) 
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writeln(SenFlag, 0,1:3)  ; 
Close (SenFlag) ; 
end; 

procedure  WriSenred; 
begin 

append (SensorFile)  ; 

write  (SensorFile, Senred:3, 0:2)  ;  (*  write  sensor  readings  *) 

Close  (SensorFile) ; 
end; 

procedure  WritCret; 
begin 

append (SensorFile) ; 

writeln (SensorFile,  '  ' )  ; 

Close  (SensorFile) ; 
end; 

procedure  TakeSenData; 
begin 

writeln  ('Enter  Time  of  Sensor  Readings  (ie.  1800) 

for  Station  ' ,C) ; 

readln  (Tim) ;  writeln  ( '  ' )  ; 

WriDatim;         (*  write  date  and  time  to  sen.dat  *) 

L  :=  1; 

while  L  <  Number*2  do 
begin 

Savl  :=  Senloc[L] ; 

Sav2  :=  Senloc[L+l] ; 

writeln  ('What  is  the  reading  of  sensor   ',Savl,'/', 

Sav2, '  ?  (kPa) ') ; 
readln  (Senred) ; 

WriSenred;      (*  write  sensor  reading  to  sen.dat  *) 
L  :=  L+2; 
end; 

WritCret;       (*  writeln  for  carriage  return  *) 
end  ; 

procedure  Legend; 
begin 

GotoXY  ( (28+Sav2*2) , (2+Savl  div  4) ) ; 

writeln (Savl, '/' ,Sav2,  'cm'); 
end; 

procedure  ConstructDraw; 
begin 
L  :=  1; 

while  L  <  Number*2  do 
begin 

Savl  :=  Senloc[L] ; 
Sav2  :=  Senloc[L+l] ; 
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Lxsen  :=  300+Sav2*25;  Rxsen  :=  320+Sav2*25; 
Lsen  :=  25+Savl*10;  Rsen  :=  75+Savl*10; 

(*  Draw  Sensor  in  field  *) 
DrawSquare  (Lxsen, Lsen, Rxsen, Rsen, false) ; 
Legend;  (*  Write  legends  on  screen  *) 

L  :=  L+2; 
end; 
end; 

procedure  DrawArrow; 
begin 

DrawLine(Xl,Yl,X2,Y2) ; 
begin 

DrawLine(Xl,Yl,Xl+30,Yl-20) ; 
DrawLine(Xl,Yl,Xl+3  0,Yl+2  0)  ; 
end; 
end; 

procedure  DrawSenl; 
begin 

Lsen  :=  105; 

Rsen  :=  155; 

DrawSquare  (300, Lsen, 320, Rsen, false) ; 
end; 

procedure  Blinky; 
begin 
repeat 

SetColorBlack; 
DrawSenl; 

For  I  :=  1  to  4000  do; 
SetColorWhite; 
DrawSenl ; 
For  I  :=  l  to  4000  do; 
until  KeyPressed; 
end; 

procedure  DrawField; 
begin 

InitGraphic; 

DefineWorld  (1,0,0,1000,1000); 

SetForegroundColor  (Lightgreen) ; 

SelectWorld(l) ; 

SelectWindow(l)  ; 

DrawBorder; 

GotoXY(23,l)  ; 

WritelnC  Is  this  your  sensor  layout?  Y/N  '); 

ConstructDrav ; 

Blinky; 

Yorn  :=  ReadKey; 

If  Yorn  in  [•N,,,n']  then 
begin 


ExitLoop  :=  False; 
LeaveGraphic ; 
TakeData; 
DrawField; 
end 
Else  Leavegraphic ; 
end; 
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procedure  CapturePlac2 ; 
begin 

Delete(Line,l,3) ;  (*  strip  off  station  markers 

while  Length (Line)  <>  0  do 
begin 

Savechar  :=  Copy (Line, 1, 3) ; 
Val(Savechar,Savec,Resl) ; 
SenlocfL]  :=  Savec; 
Delete(Line,l,3) ; 
L  :=  L+l; 
end; 

Number  :=  (L-l)  div  2; 
end; 

procedure  CapturePlac; 
begin 
L  :=  1; 

reset  (SensorFile) ; 

readln(SensorFile,Line) ;     (*  read  position  line  *) 
readln (SensorFile, Linel) ; 
If  Eof (SensorFile)  then 

CapturePlac2 
Else 
begin 

readln(SensorFile,Line2)  ; 
rewrite (SensorFile)  ; 

(*  Write  position  line  back  in  file  *) 
writeln (SensorFile, Line) ; 

(*  Write  day  2  sensors  to  day  1  position  *) 
writeln(SensorFile,Line2) ; 
CapturePlac2 ; 
end; 
end; 

procedure  WeatherMod; 
begin 
repeat 

readln (WeatherFile, Line) ; 
writeln (WeatherFile2 , Line) ; 
JulS  :=  Copy(Line,9,3) ; 
Val(JulS,Jul,Resl) ;writeln  (Jul) ; 
until  Jul  =  Dat-2; 
Jul  :=  Jul+1; 

(*  Only  put  actual  weather  and  rain  for  yesterday  *) 
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writeln(WeatherFile2, 'UFGA  88' , Jul : 4 ,Srad: 6:2,Tmax: 6: 1, 

Tmin : 6 : 1 , Rain : 6 : 1 , Par : 6 : 2 ) ; 
Jul  :=  Jul+1; 

If  Rain  =  0  then 
begin 

(*  Only  forecast  5  days  ahead  with  no  rain  *) 
while  Jul  <=  Dat+5  do 
begin 

writeln ( WeatherFile2 , ' UFGA  88 ' , Jul : 4 , Srad : 6 : 2 , Tmax : 6 : 1 , 

Tmin : 6 : 1 , 0 . 0:6:1, Par : 6 : 2 ) ; 
Jul  :=  Jul+1; 
end; 
end 
Else     (*  If  rain,  substitute  weather  values  for  typical  day  *) 
begin 

(*  Only  forecast  5  days  ahead  with  no  rain  *) 
while  Jul  <=  Dat+5  do 
begin 

writeln (WeatherFile2, 'UFGA  88 ' , Jul: 4 , 20. 00: 6: 2 , 37. 0: 6: 1, 

24.0:6:1,0.0:6:1,34.00:6:2); 
Jul  :=  Jul+1; 
end; 
end; 
For  I  :=  1  to  7  do 
begin 

readln(WeatherFile,Line) ; 
end; 
(*  Put  data  from  previous  weather  file  for  rest  of  days  *) 
while  Jul  <=  365  do 
begin 

readln(WeatherFile,Line) ; 
writeln (WeatherFile2, Line) ; 
writeln  (Jul) ; 
Jul  :=  Jul+1; 
end; 
Close (WeatherFile) ; 
Close (WeatherFile2) ; 
Erase (WeatherFile) ; 
end; 

procedure  InputlnitialData; 
begin 

write  ('First  run  of  this  program?  (Y/N)  '); 

readln  (First) ; 

writeln ('  ');clrscr; 

writeln  ('Enter  Julian  Date  •); 

readln  (Dat) ;  writeln  ('  ' ) ; 

writeln  ('Enter  your  choice'); 

writeln  ( '  ' )  ; 

writeln  ( •   l  =  Enter  sensor  data ' ) ; 

writeln  (•   2  =  Use  default  sensor  files'); 
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readln  (SensorPass) ; 
If  SensorPass  =  1  then 
begin 

write  ('How  many  sensor  stations  to  be  read?  (1  to  6)  ') 
readln  (Banks) ;writeln  ('  '); 
end; 

writeln( 'What  was  yesterdays  total  radiation?  (Mj/sq  M)  ' )  ; 
readln  (Srad) ; 
If  Srad  <  7  then 
begin 
clrscr ; 

writeln('Was  it  raining  yesterday?  y/n'); 
readln  (RadFlag) ; 

If  (RadFlag  in  ['N','n'])  or  (Srad  =  0)  then 
begin 
WFlag  :=  False; 
clrscr; 
writeln( ' Your  radiation  data  is  suspect.  The  daily  weather'); 
writeln( ' f ile  for  yesterday  may  have  erroneous  data.  This'); 
writeln('may  be  caused  by  data  transmission  foul-ups  during  '); 
writeln('a  data  dump.   Derive  a  correct  value  from'); 
writeln( 'hourly  data  files  if  you  have  access  to  them.'); 
writeln('If  subsequent  weather  inputs  are  O.K.,  you  probably'); 
writeln( 'have  an  instrumentation  failure.  Check  radiometer'); 
writeln('and  associated  interfaces.   The  weather  file  will  '); 
writeln('not  be  changed.  When  the  problem  is  fixed,  re-run  ' ) ; 
writeln('the  system  from  the  beginning.'); 
writeln('     Press  return.'  ) ;bug; 
end; 
end; 
If  Srad  >  30  then 
begin 

WFlag  :=  False; 
clrscr; 
writeln( ' Your  radiation  data  is  suspect.  The  daily  weather'); 
writeln( ' file  for  yesterday  may  have  erroneous  data.  This'); 
writeln('may  be  caused  by  data  transmission  foul-ups  during  '); 
writeln('a  data  dump.   Derive  a  correct  value  from'); 
writeln(' hourly  data  files  if  you  have  access  to  them.'); 
writeln('If  subsequent  weather  inputs  are  O.K.,  you  probably'); 
writeln( 'have  an  instrumentation  failure.  Check  radiometer'); 
writeln('and  associated  interfaces.   The  weather  file  will  ' ) ; 
writeln('not  be  changed.  When  the  problem  is  fixed,  re-run  '); 
writeln('the  system  from  the  beginning.'); 
writeln('     Press  return.'  ) ;bug; 

end; 
writeln( '  ' ) ; 
clrscr; 

writeln( 'What  was  yesterdays  maximum  air  temperature?  (deg  C) ' ) ; 
readln  (Tmax) ; 

If  (Tmax  <  20)  or  (Tmax  >  45)  then 
begin 
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WFlag  :=  False; 
clrscr ; 
writeln( 'Temperature  value  is  suspect.  The  daily  weather'); 
writeln( ' f ile  for  yesterday  may  have  erroneous  data.  This'); 
writeln('may  be  caused  by  data  transmission  foul-ups  during'); 
writeln('a  data  dump.   Derive  a  correct  value  from'); 
writeln ( 'hourly  data  files  if  you  have  access  to  them.'); 
writeln('If  previous  weather  inputs  were  O.K.,  you  probably'); 
writeln( 'have  an  instrumentation  failure.  Check  your'); 
writeln (' transducer  and  associated  interfaces.  The  weather  file') 
writeln( 'will  not  be  changed.  When  the  problem  is  fixed,  re-run') 
writeln('the  system  from  the  beginning.'); 
writeln('     Press  return.'  ) ;bug; 

end; 
writeln ( '  ' )  ; 
clrscr; 

writeln( 'What  was  yesterdays  minimum  air  temperature?  (deg  C)  ' )  ; 
readln(Tmin) ; 

If  (Tmin  <  5)  or  (Train  >  30)  then 
begin 

WFlag  :=  False; 
clrscr; 
writeln ( 'Temperature  value  is  suspect.  The  daily  weather'); 
writeln ( ' file  for  yesterday  may  have  erroneous  data.  This ' ) ; 
writeln('may  be  caused  by  data  transmission  foul-ups  during'); 
writeln('a  data  dump.   Derive  a  correct  value  from'); 
writeln ( 'hourly  data  files  if  you  have  access  to  them. '); 
writeln('If  previous  weather  inputs  were  O.K.,  you  probably'); 
writeln( 'have  an  instrumentation  failure.  Check  your'); 
writeln ( 'transducer  and  associated  interfaces.  The  weather  file') 
writeln( 'will  not  be  changed.  When  the  problem  is  fixed,  re-run') 
writeln('the  system  from  the  beginning.'); 
writeln ('     Press  return.'  ) ;bug; 

end; 
writeln ( '  ' ) ; 
clrscr; 

writeln( 'What  was  yesterdays  measured  rainfall?  (mm)'); 
readln  (Rain) ; 
If  Rain  =  0  then 
begin 
clrscr; 

writeln  ('You  entered  a  value  of  zero.   Is  this'); 
writeln  ('what  you  observed  yourself?  y/n'); 
readln (Observed) ; 

If  Observed  in  ['n','N']  then 
begin 
clrscr; 
writeln  ('If  you  observed  a  trace  amount  of  rain  at  your'); 
writeln  ('location,  the  reading  of  0  may  be  O.K.  If,  however,'); 
writeln  ('you  observed  an  appreciable  amount  of  rain,  the  rain'); 
writeln  ( ' data  may  be  suspect .  Derive  a  correct  value  from ' ) ; 
writeln  ('hourly  data  files  if  you  have  access  to  them.'); 
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writeln  (*If  previous  weather  inputs  were  O.K.,  you  probably'); 
writeln  ('have  an  instrumentation  failure.  Check  rain  gauge,'); 
writeln  ('transducers,  and  associated  interfaces.  Press  return.'] 
end; 
end; 
writeln  ( '  ' )  ; 
clrscr; 
writeln  ('Do  you  have  a  reading  for  yesterdays  PAR?  (Y/N) ' ) ; 
readln  (Parflag) ; 
end; 

procedure  RenameWeatherFile; 
begin 

rename (WeatherFile, 'c:\PNUTGRO\UFGA0511.W8I') ; 

reset  (WeatherFile) ; 

readln  (WeatherFile, Line) ; 

Rewrite (WeatherFile2 ) ;   (*  copy  first  line  *) 

writeln (WeatherFile2 , Line) ; 
end; 

procedure  LotusFlag; 
begin 

rewrite  (SprFlag) ; 
(*  Write  '2'  to  signal  expert  system  to  go  to  spreadsheet  *) 

writeln  (Sprflag,Spvar: 3 : 1) ; 
Close  (SprFlag) ; 
end; 

begin 

Assign  (WeatherFile,  'C:\PNUTGRO\UFGA0511.W88'); 
Assign  (WeatherFile2 ,  'C:\PNUTGRO\UFGA0511.W88'); 
Assign  (SenFlag,  'a: Senflags.dat ■) ; 
Assign  (StarTem,  'a:Startext.dat ■ ) ; 
Assign  (SprFlag,  'a:Pasflag' ) ; 
TextBackground(blue) ; 
TextColor (yellow) ; 
clrscr; 

reset  (WeatherFile) ; 

readln  (WeatherFile, Line) ; 

ParfacS  :=  Copy (Line, 20, 5) ; 

Val(ParfacS,Parfac,Resl)  ; 

Close  (WeatherFile) ; 
Wflag  :=  true; 
XI  :=  330; 
Yl  :=  130; 
X2  :=  460; 
Y2  :=  130; 
InputlnitialData ; 

If  Parflag  in  ['N'.'n']  then 
Par  :=  Srad*23.923/Parfac 

Else 
begin 
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writeln  ('  ' )  ; 

writeln  ('What  was  yesterdays  PAR?  (E/sq  M) ' ) ; 

readln  (Par) ; 

If  (Par  <  11)  or  (Par  >  50)  then 
begin 
clrscr; 
writeln ( 'Your  PAR  value  is  suspect.  The  daily  weather'); 
writeln ( 'file  for  yesterday  may  have  erroneous  data. This  may  be'); 
writeln ( 'caused  by  data  transmission  foul-ups  during  '); 
writeln('a  data  dump.   Derive  a  correct  value  from'); 
writeln ( 'hourly  data  files  if  you  have  access  to  them.1); 
writeln ('If  previous  weather  inputs  were  O.K.,  you  probably'); 
writeln( 'have  an  instrumentation  failure.   Check  your  sensor'); 
writeln ('and  associated  interfaces.   A  default  value  calculated1); 
writeln( 'from  total  radiation  will  be  used  for  PAR. '); 
writeln('     Press  return.'  ) ;bug; 
Par  :=  Srad*23 . 923/Parfac 
end; 
end; 
If  SensorPass  =  l  then 
begin 
For  C  :=  1  to  Banks  do 
begin 
Case  C  of 

1  :  begin 

Assign  (SensorFile,  'a:Senl.dat ' )  ; 
If  First  in  [  'Y','y']  then  Rewrite (SensorFile) ; 
end; 

2  :  begin 

Assign  (SensorFile,  'a:Sen2 .dat ' ) ; 
If  First  in  [  'Y','y']  then  Rewrite (SensorFile) ; 
end; 

3  :  begin 

Assign  (SensorFile,  'a:Sen3 .dat ' )  ; 
If  First  in  [  'Y'.'y']  then  Rewrite(SensorFile) ; 
end; 

4  :  begin 

Assign  (SensorFile,  'a:Sen4 .dat ' ) ; 
If  First  in  [  'Y','y']  then  Rewrite (SensorFile) ; 
end; 

5  :  begin 

Assign  (SensorFile,  'a:Sen5.dat • ) ; 
If  First  in  [  'Y','y']  then  Rewrite (SensorFile) ; 
end ;  %  it 

6  :  begin 

Assign  (SensorFile,  'a:Sen6.dat ' ) ; 
If  First  in  [  'Y','y']  then  Rewrite (SensorFile) ; 
end  ; 
end;    (*  case  *) 
ExitLoop  :=  False; 
reset (SensorFile) ; 
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(*  Get  first  char  of  first  line  *) 


readln(SensorFile,Line) ; 
Savechar  :=  Copy (Line, 1, 1) 
Close (SensorFile) ; 
Val(Savechar,Stiv,Resl) ; 
(*  If  char  is  single  no.  , placements  are  in  file  already  *) 
If  (Stiv)  in  [1..9]  then 
begin 

CapturePlac;   (*  Capture  placements  from  sen.dat  *) 
TakeSenData; 
end 
Else 
begin 

Spvar  : =  2.0; 
LotusFlag; 
TakeData ; 
DrawField; 
WriTofile; 
TakeSenData ; 
end; 

end;   (*  For  loop  *) 
WriFlags;  (*  write  modeflag  and  no.  of  positions  to  *) 

(*  Senflags.dat  *) 
end; 

If  WFlag  =  True  then 
begin 

RenameWeatherFile ; 

Weathermod;  (*  modify  weather  file  *) 

end; 
end. 


(*  Place  flag  for  expert  system  *) 

(*  Read  and  store  sensor  placements  *) 

(*  Draw  placements  in  field  *) 

(*  Write  placements  to  sen.dat  *) 

(*  Read  date,  time,  sensor  data  and  store  *) 


APPENDIX  G 
SPREADSHEET  MACROS  FOR  DATA  MANIPULATION 


**  MOVE  THE  DATA  IN,  PUT  DATA  FOR  FIRST  SENSOR  DEPTH  ** 
**  IN  LOCATIONS  STARTING  AT  C20  FOR  TREATMENT  BY  EXPERT  SYSTEM  ** 

\A    {HOME}/FINSENFLAGS.DAT"/RNCMODEFLAG"B2  0" 

/FINSEN1 . DAT" { D  3 }/RE { END } { DOWN } { END ) { RIGHT } "/RNCMARK " Al _ 
{ IF  MARK=2 ) { HOME } /M ( END } ( DOWN } { END } { RIGHT ) " A4 " { HOME } 

/FINSEN2.DAT" 
( IF  MARK=3 } { HOME } /M { END ) { DOWN } { END } { RIGHT } " A4 " { HOME } 

/FINSEN2.DAT" (HOME }/M{ END ({DOWN} 
{ END } { RIGHT }" A4 " { HOME }/FINSEN3 . DAT" 
(GOTOJA23" 
/RNLR { RIGHT}- 

{FOR  CTR,0,@ROWS(C1. . D9) -2 , 1 ,MOVl) 
MOV1  (PUT  C20. .D28,0,CTR,@INDEX(C1. .D9,0,CTR) ) 
{PUT  C2  0. .D28,1,CTR,@INDEX(C1. .D9,1,CTR) } 

**  MOVE  EXPERT  SYSTEM  TREATED  DATA  BACK  TO  ORIGINAL  ** 
**  LOCATION  FOR  LATER  EXPORT  TO  PASCAL  ANALYSIS  PROGRAM  ** 


\Z 


MOAT 


{IF  POSITIONS=9}/RNCRPOSIT"Cl. .D9~ 

(IF  POSITIONS=8}/RNCRPOSIT"El. . F9 " 

{IF  POSITIONS=7)/RNCRPOSIT~Gl. .H9" 

(IF  POSITIONS=6)/RNCRPOSIT"Il. .J9~ 

(IF  POSITIONS=5)/RNCRPOSIT~Kl. . L9 " 

(IF  POSITIONS=4)/RNCRPOSIT"Ml. .N9" 

(IF  POSITIONS=3)/RNCRPOSIT"01. . P9 ' 

{IF  P0SITI0NS=2}/RNCRP0SIT"Q1. .R9" 

(IF  POSITIONS=l)/RNCRPOSIT"Sl. .T9" 

{LET  POSITIONS, POSITIONS-1) 

(FOR  CTR,0,@ROWS(C1. . D9) -2 , l,MOAT) 

{PUT  RPOSIT,0,CTR,@INDEX(C20. .D28,0,CTR) ) 

{PUT  RPOSIT,1,CTR,@INDEX(C20. .D28,1,CTR) } 
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287 
**  MOVE  NEW  DATA  TO  C20..  FOR  TREATMENT  BY  EXPERT  SYSTEM  ** 

\R  {IF  POSITIONS=9}{LET  POSIT, "CI. . D9" : String) " 
(IF  POSITIONS=8}{LET  POSIT, "El. . F9" :String} ~ 
(IF  POSITIONS=7 } { LET  POSIT, "Gl .. H9" rString) " 
(IF  POSITIONS=6}(LET  POSIT, "II . .J9" : String} " 
(IF  POSITIONS=5)(LET  POSIT, "Kl .. L9" : String} " 
(IF  POSITIONS=4)(LET  POSIT, "Ml. .N9" : String} " 
(IF  POSITIONS=3}(LET  POSIT, "01. . P9" : String) " 
(IF  P0SITI0NS=2}(LET  POSIT, "Ql. .R9" :String) " 
(IF  P0SITI0NS=1)(LET  POSIT, "SI . .T9" :String) " 
(FOR  CTR,0,@ROWS(C1. . D9) -2 , 1 ,MOVIT) 

MOVIT(PUT  C20. .D28,0,CTR,@INDEX(@@(POSIT) ,0,CTR) ) 
(PUT  C20. .D28,l,CTR,@INDEX(@@(POSIT) ,1,CTR) } 

**  THIS  MACRO  FORMATS  MARGINS,  COMPRESSES  DATA  AND  SAVES  ** 
**  TO  A  PRN  FILE  IN  A  FORMAT  FOR  THE  PASCAL  ANALYSIS  ROUTINES  ** 

\C    { HOME  J/RFFO " ( END } { DOWN } { END } { RIGHT } " 
( HOME }/WCS4  * (RIGHTJ/WCS4 '/WGC3 " 

(HOME}/PFSENRED.PRN"ROML0"MT0"QR. (END) { DOWN) (END) (RIGHT) "GQ 
/QY 

**  THIS  MACRO  SAVES  THIS  FILE  ON  DISK  ** 

\S    /FS ( ESC } { ESC } ( ESC } C : \VPEXPERT\SENRED . WKS "R 
/QY 


APPENDIX  H 
"DATRUL_1",  KNOWLEDGE  BASE  FOR  SENSOR  EVALUATION 


BKCOLOR  =  1; 
ACTIONS 
COLOR  =  14 
KOUTMARKfl]  -  1 
KOUTMARK[2]  =  1 
QUESTMARKfl]  -  2 
QUESTMARK[2]  =  2 
WKS  NUMBER, B19,SENRED 
FIND 

ACTIVATE 
FIND 

RATE_OF_DRYING 
FIND 

READ_STATION 
FIND 

IMPROPER_PLAC 
CLS 
FIND 

QUIT; 

RULE  0 

IF  NUMBER  >  0 

THEN  ACTIVATE  -  TRUE 

NUMBER  =  ( NUMBER- 1) 

PWKS  NUMBER, B19,SENRED; 

RULE  2 

IF  ACTIVATE  =  TRUE  AND 

CONDITIONS  =  SUNNY_AND_HOT  OR 

CONDITIONS  =  MOSTLY_SUNNY 
THEN  THE_SENSOR  =  DRYING 
WKS  BANKS, A1,SENRED 
DISPLAY  "THE  SENSOR  READINGS  CAN  BE  EVALUATED" 

BECAUSE  " 

A  significant  drying  response  is  needed 
to  determine  the  relative  suitability  of 
readings.  Enough  drying  can  only  occur 
on  sunny  days . " ; 
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RULE  3 

IF  ACTIVATE  =  TRUE  AND 

THE_SENSOR  =  DRYING  AND 

BANKS  =  3 

THEN  DIFF_VAL  =  3 

WKS  VAL,C20. .D28,SENRED 

DIFF1  =  (VAL[5]-VAL[3]) 

DIFF2  =  (VAL[11]-VAL[9]) 

DIFF3  =  (VAL[17]-VAL[15]) 

CLS; 

RULE  4 

IF  ACTIVATE  =  TRUE  AND 

THE_SENSOR  =  DRYING  AND 

BANKS  =  2 

THEN  DIFF_VAL  =  2 

WKS  VAL,C20. .D28,SENRED 

DIFF1  =  (VAL[5]-VAL[3]) 

DIFF2  =  (VAL[11]-VAL[9]) 

CLS; 

RULE  5 

IF  ACTIVATE  =  TRUE  AND 

THE_SENSOR  =  DRYING  AND 

BANKS  =  1 

THEN  DIFF_VAL  =  1 

WKS  VAL,C20. .D28,SENRED 

DIFF1  =  (VAL[5]-VAL[3]) 

CLS; 

RULE  6 

IF  ACTIVATE  =  TRUE  AND 

TYPE  =  TENS IOMETER 

THEN  READ_STATION  =  IN_RANGE 

CLS 

BECAUSE  "Every  soil  water  sensor  has  its 
own  working  range  and  operational 
characteristics.  Thus,  out  of  range  readings 
and  trends  noted  with  each  type  of  sensor  may 
be  treated  differently  in  the  program."; 

RULE  7 

IF  ACTIVATE  =  TRUE  AND 

TYPE  =  WATERMARK  AND 

DIFF_VAL  =  3  AND 

VAL[3]  <  10  OR 

VAL[5]  <  10   AND 

VAL[9]  >=  10  AND 

VAL[11]  >=  10  AND 

VAL[15]  >=  10  AND 

VAL[17]  >=  10 
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THEN  READ_STATION  =  OUT_OF_RANGE 

PWKS  KOUTMARK,D21. .D22, SENRED 

CLS 

DISPLAY  "A  READING  AT  STATION  3  WAS  BELOW  THE  SENSOR'S 

LOWER  LIMIT  OF  10  CB.   INDIVIDUAL  READINGS  OBTAINED  BELOW 

10  CB  CANNOT  BE  USED  TO  MODIFY  SOIL  CHARACTERISTICS  BUT 

CAN  STILL  BE  USED  TO  MODIFY  ROOT  DISTRIBUTION." 

DISPLAY  "  " 

BECAUSE  "Every  soil  water  sensor  has  its 
own  working  range  and  operational 
characteristics.  Thus,  out  of  range  readings 
and  trends  noted  with  each  type  of  sensor  may 
be  treated  differently  in  the  program."; 

RULE  8 

IF  ACTIVATE  =  TRUE  AND 

TYPE  =  WATERMARK  AND 

DIFF_VAL  =  3  AND 

VAL[3]  >=  10  AND 

VAL[5]  >=  10   AND 

VAL[9]  <  10  OR 

VAL[11]  <  10  AND 

VAL[15]  >=  10  AND 

VAL[17]  >=  10 
THEN  READ_STATION  =  OUT_OF_RANGE 
PWKS  KOUTMARK , D2  4 . . D2  5 , SENRED 
CLS 

DISPLAY  "A  READING  AT  STATION  2  WAS  BELOW  THE  SENSOR'S 
LOWER  LIMIT  OF  10  CB.   INDIVIDUAL  READINGS  OBTAINED  BELOW 
10  CB  CANNOT  BE  USED  TO  MODIFY  SOIL  CHARACTERISTICS  BUT 
CAN  STILL  BE  USED  TO  MODIFY  ROOT  DISTRIBUTION." 
DISPLAY  "  " 

BECAUSE  "Every  soil  water  sensor  has  its 
own  working  range  and  operational 
characteristics.  Thus,  out  of  range  readings 
and  trends  noted  with  each  type  of  sensor  may 
be  treated  differently  in  the  program."; 

RULE  9 

IF  ACTIVATE  =  TRUE  AND 

TYPE  =  WATERMARK  AND 

DIFF_VAL  =  3  AND 

VAL[3]  >=  10  AND 

VAL[5]  >=  10   AND 

VAL[9]  >=  10  AND 

VAL[11]  >=  10  AND 

VAL[15]  <  10  OR 

VAL[17]  <  10 
THEN  READ_STATION  =  OUT_OF_RANGE 
PWKS  KOUTMARK , D2  7 . . D2  8 , SENRED 
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CLS 

DISPLAY  "A  READING  AT  STATION  1  WAS  BELOW  THE  SENSOR'S 

LOWER  LIMIT  OF  10  CB.   INDIVIDUAL  READINGS  OBTAINED  BELOW 

10  CB  CANNOT  BE  USED  TO  MODIFY  SOIL  CHARACTERISTICS  BUT 

CAN  STILL  BE  USED  TO  MODIFY  ROOT  DISTRIBUTION." 

DISPLAY  "  " 

BECAUSE  "Every  soil  water  sensor  has  its 
own  working  range  and  operational 
characteristics.  Thus,  out  of  range  readings 
and  trends  noted  with  each  type  of  sensor  may 
be  treated  differently  in  the  program."; 

RULE  10 

IF  ACTIVATE  =  TRUE  AND 

TYPE  =  WATERMARK  AND 

DIFF_VAL  =  3  AND 

VAL[3]  <  10  OR 

VAL[5]  <  10  AND 

VAL[9]  <  10  OR 

VALfll]  <  10  AND 

VAL[15]  >=  10  AND 

VAL[17]  >=  10 
THEN  READ_STATION  =  OUT_OF_RANGE 
PWKS  KOUTMARK, D21 . . D22 , SENRED 
PWKS  KOUTMARK , D2  4 . . D2  5 , SENRED 
CLS 

DISPLAY  "READINGS  AT  STATIONS  2  AND  3  WERE  BELOW  THE  SENSOR'S 
LOWER  LIMIT  OF  10  CB.   INDIVIDUAL  READINGS  OBTAINED  BELOW 
10  CB  CANNOT  BE  USED  TO  MODIFY  SOIL  CHARACTERISTICS  BUT 
CAN  STILL  BE  USED  TO  MODIFY  ROOT  DISTRIBUTION." 
DISPLAY  "  " 

BECAUSE  "Every  soil  water  sensor  has  its 
own  working  range  and  operational 
characteristics.  Thus,  out  of  range  readings 
and  trends  noted  with  each  type  of  sensor  may 
be  treated  differently  in  the  program."; 

RULE  11 

IF  ACTIVATE  =  TRUE  AND 

TYPE  =  WATERMARK  AND 

DIFF_VAL  =  3  AND 

VAL[3]  <  10  OR 

VAL[5]  <  10  AND 

VAL[9]  >=  10  AND 

VAL[11]  >=  10  AND 

VAL[15]  <  10  OR 

VAL[17]  <  10 
THEN  READ_STATION  =  OUT_OF_RANGE 
PWKS  KOUTMARK , D2 1 . . D2  2 , SENRED 
PWKS  KOUTMARK , D2  7 . . D2  8 , SENRED 
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CLS 

DISPLAY  "READINGS  AT  STATIONS  1  AND  3  WERE  BELOW  THE  SENSOR'S 

LOWER  LIMIT  OF  10  CB.   INDIVIDUAL  READINGS  OBTAINED  BELOW 

10  CB  CANNOT  BE  USED  TO  MODIFY  SOIL  CHARACTERISTICS  BUT 

CAN  STILL  BE  USED  TO  MODIFY  ROOT  DISTRIBUTION." 

DISPLAY  "  " 

BECAUSE  "Every  soil  water  sensor  has  its 
own  working  range  and  operational 
characteristics.  Thus,  out  of  range  readings 
and  trends  noted  with  each  type  of  sensor  may 
be  treated  differently  in  the  program."; 

RULE  12 

IF  ACTIVATE  =  TRUE  AND 

TYPE  =  WATERMARK  AND 

DIFF_VAL  =  3  AND 

VAL[3]  >=  10  AND 

VAL[5]  >=  10  AND 

VAL[9]  <  10  OR 

VAL[11]  <  10  AND 

VAL[15]  <  10  OR 

VAL[17]  <  10 
THEN  READ_STATION  =  OUT_OF_RANGE 
PWKS  KOUTMARK, D24 . . D25 , SENRED 
PWKS  KOUTMARK, D27. .D28, SENRED 
CLS 

DISPLAY  "READINGS  AT  STATIONS  1  AND  2  WERE  BELOW  THE  SENSOR'S 
LOWER  LIMIT  OF  10  CB.   INDIVIDUAL  READINGS  OBTAINED  BELOW 
10  CB  CANNOT  BE  USED  TO  MODIFY  SOIL  CHARACTERISTICS  BUT 
CAN  STILL  BE  USED  TO  MODIFY  ROOT  DISTRIBUTION." 
DISPLAY  "  " 

BECAUSE  "Every  soil  water  sensor  has  its 
own  working  range  and  operational 
characteristics.  Thus,  out  of  range  readings 
and  trends  noted  with  each  type  of  sensor  may 
be  treated  differently  in  the  program."; 

RULE  13 

IF  ACTIVATE  =  TRUE  AND 

TYPE  =  WATERMARK  AND 

DIFF_VAL  =  3  AND 

VAL[3]  <  10  OR 

VAL[5]  <  10  AND 

VAL[9]  <  10  OR 

VAL[11]  <  10  AND 

VAL[15]  <  10  OR 

VAL[17]  <  10 
THEN  READ_STATION  =  OUT_OF_RANGE 
PWKS  KOUTMARK, D21. .D22, SENRED 
PWKS  KOUTMARK , D2  4 . . D2  5 , SENRED 
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PWKS  KOUTMARK , D2  7 . . D2  8 , SENRED 

CLS 

DISPLAY  "READINGS  AT  ALL  3  STATIONS  WERE  BELOW  THE  SENSOR'S 

LOWER  LIMIT  OF  10  CB.   INDIVIDUAL  READINGS  OBTAINED  BELOW 

10  CB  CANNOT  BE  USED  TO  MODIFY  SOIL  CHARACTERISTICS  BUT 

CAN  STILL  BE  USED  TO  MODIFY  ROOT  DISTRIBUTION." 

DISPLAY  "  " 

BECAUSE  "Every  soil  water  sensor  has  its 
own  working  range  and  operational 
characteristics.  Thus,  out  of  range  readings 
and  trends  noted  with  each  type  of  sensor  may 
be  treated  differently  in  the  program."; 

RULE  14 

IF  ACTIVATE  =  TRUE  AND 

TYPE  =  WATERMARK  AND 

DIFF_VAL  =  2  AND 

VAL[3]  <  10  OR 

VAL[5]  <  10  AND 

VAL[9]  >=  10  AND 

VAL[11]  >=  10 
THEN  READ_STATION  =  OUT_OF_RANGE 
PWKS  KOUTMARK, D21. .D22, SENRED 
CLS 

DISPLAY  "A  READING  AT  STATION  2  WAS  BELOW  THE  SENSOR'S 
LOWER  LIMIT  OF  10  CB.   INDIVIDUAL  READINGS  OBTAINED  BELOW 
10  CB  CANNOT  BE  USED  TO  MODIFY  SOIL  CHARACTERISTICS  BUT 
CAN  STILL  BE  USED  TO  MODIFY  ROOT  DISTRIBUTION." 
DISPLAY  "  " 

BECAUSE  "Every  soil  water  sensor  has  its 
own  working  range  and  operational 
characteristics.  Thus,  out  of  range  readings 
and  trends  noted  with  each  type  of  sensor  may 
be  treated  differently  in  the  program."; 

RULE  15 

IF  ACTIVATE  =  TRUE  AND 

TYPE  =  WATERMARK  AND 

DIFF_VAL  =  2  AND 

VAL[3]  >=  10  AND 

VAL[5]  >=  10  AND 

VAL[9]  <  10  OR 

VAL[11]  <  10 
THEN  READ_STATION  =  OUT_OF_RANGE 
PWKS  KOUTMARK , D2  4 . . D2  5 , SENRED 
CLS 

DISPLAY  "A  READING  AT  STATION  1  WAS  BELOW  THE  SENSOR'S 
LOWER  LIMIT  OF  10  CB.   INDIVIDUAL  READINGS  OBTAINED  BELOW 
10  CB  CANNOT  BE  USED  TO  MODIFY  SOIL  CHARACTERISTICS  BUT 
CAN  STILL  BE  USED  TO  MODIFY  ROOT  DISTRIBUTION." 
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DISPLAY  "  " 

BECAUSE  "Every  soil  water  sensor  has  its 
own  working  range  and  operational 
characteristics.  Thus,  out  of  range  readings 
and  trends  noted  with  each  type  of  sensor  may 
be  treated  differently  in  the  program."; 

RULE  16 

IF  ACTIVATE  =  TRUE  AND 

TYPE  =  WATERMARK  AND 

DIFF_VAL  =  2  AND 

VAL[3]  <  10  OR 

VAL[5]  <  10  AND 

VAL[9]  <  10  OR 

VALfll]  <  10 
THEN  READ_STATION  =  OUT_OF_RANGE 
PWKS  KOUTMARK , D2 1 . . D2  2 , SENRED 
PWKS  KOUTMARK , D2  4 . . D2  5 , SENRED 
CLS 

DISPLAY  "READINGS  AT  BOTH  STATIONS  WERE  BELOW  THE  SENSOR'S 
LOWER  LIMIT  OF  10  CB.   INDIVIDUAL  READINGS  OBTAINED  BELOW 
10  CB  CANNOT  BE  USED  TO  MODIFY  SOIL  CHARACTERISTICS  BUT 
CAN  STILL  BE  USED  TO  MODIFY  ROOT  DISTRIBUTION." 
DISPLAY  "  " 

BECAUSE  "Every  soil  water  sensor  has  its 
own  working  range  and  operational 
characteristics.  Thus,  out  of  range  readings 
and  trends  noted  with  each  type  of  sensor  may 
be  treated  differently  in  the  program."; 

RULE  17 

IF  ACTIVATE  =  TRUE  AND 

TYPE  =  WATERMARK  AND 

DIFF_VAL  =  1  AND 

VAL[3]  <  10  OR 

VAL[5]  <  10 
THEN  READ_STATION  =  OUT_OF_RANGE 
PWKS  KOUTMARK , D2 1 . . D2  2 , SENRED 
CLS 

DISPLAY  "A  READING  WAS  BELOW  THE  SENSOR'S 

LOWER  LIMIT  OF  10  CB.  INDIVIDUAL  READINGS  OBTAINED  BELOW 
10  CB  CANNOT  BE  USED  TO  MODIFY  SOIL  CHARACTERISTICS  BUT 
CAN  STILL  BE  USED  TO  MODIFY  ROOT  DISTRIBUTION." 
DISPLAY  "  " 

BECAUSE  "Every  soil  water  sensor  has  its 
own  working  range  and  operational 
characteristics.  Thus,  out  of  range  readings 
and  trends  noted  with  each  type  of  sensor  may 
be  treated  differently  in  the  program."; 
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RULE  18 

IF  ACTIVATE  =  TRUE  AND 

THE_SENSOR  =  DRYING  AND 

DIFF_VAL  =  3  AND 

SPACEPLACE  =  YES  AND 

DIFF1  >  (DIFF2+5)  AND 

DIFF1  >  (DIFF3+5) 
THEN  RATE_OF_DRYING  =  GOOD 
CLS 

DISPLAY  "SENSORS  AT  POSITION  { VAL[ 1] }/ { VAL[ 2 ] }  ARE  DRYING  O.K. 
THE  SENSOR  READING  AT  STATION  3  IS  INCREASING  FASTER  THAN  THE 
READINGS  AT  STATIONS  1  OR  2 .   THE  WATER  HOLDING  CAPACITY  OF  THE 
SOIL  MAY  BE  LOWER  AT  THAT  LOCATION  " 
DISPLAY  "   " 

BECAUSE  "If  sensor  stations  are  placed  far 
apart,  soil  characteristics  and  layerings 
at  each  station  may  be  different.  Soil 
types  that  hold  less  water  show  a  greater 
rate  of  potential  decrease  when  drying."; 

RULE  19 

IF  ACTIVATE  =  TRUE  AND 

THE_SENSOR  =  DRYING  AND 

DIFF_VAL  =  3  AND 

SPACEPLACE  =  YES  AND 

DIFF2  >  (DIFF1+5)  AND 

DIFF2  >  (DIFF3+5) 
THEN  RATE_OF_DRYING  =  GOOD 
CLS 

DISPLAY  "THE  SENSORS  AT  POSITION  { VAL[1] }/ {VAL[2 ] }  ARE  DRYING  O.K. 
THE  SENSOR  READING  AT  STATION  2  IS  INCREASING  FASTER  THAN  THE 
READINGS  AT  STATIONS  1  OR  3 .   THE  WATER  HOLDING  CAPACITY  OF  THE 
SOIL  MAY  BE  LOWER  AT  THAT  LOCATION" 
DISPLAY  "   " 

BECAUSE  "If  sensor  stations  are  placed  far 
apart,  soil  characteristics  and  layerings 
at  each  station  may  be  different.  Soil 
types  that  hold  less  water  show  a  greater 
rate  of  potential  decrease  when  drying."; 

RULE  20 

IF  ACTIVATE  =  TRUE  AND 

THE_SENSOR  =  DRYING  AND 

DIFF_VAL  =  3  AND 

SPACEPLACE  =  YES  AND 

DIFF3  >  (DirFl+5)  AND 

DIFF3  >  (DIFF2+5) 
THEN  RATE_OF_DRYING  =  GOOD 
CLS 
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DISPLAY  "THE  SENSORS  AT  POSITION  { VAL[ 1] )/ (VAL[2 ] }  ARE  DRYING  O.K. 
THE  SENSOR  READING  AT  STATION  1  IS  INCREASING  FASTER  THAN  THE 
READINGS  AT  STATIONS  2  OR  3 .   THE  WATER  HOLDING  CAPACITY  OF  THE 
SOIL  MAY  BE  LOWER  AT  THAT  LOCATION" 
DISPLAY  "   " 

BECAUSE  "If  sensor  stations  are  placed  far 
apart,  soil  characteristics  and  layerings 
at  each  station  may  be  different.  Soil 
types  that  hold  less  water  show  a  greater 
rate  of  potential  decrease  when  drying."; 

RULE  21 

IF  ACTIVATE  =  TRUE  AND 

THE_SENSOR  =  DRYING  AND 

DIFF_VAL  =  2  AND 

SPACEPLACE  =  YES  AND 

DIFF1  >  (DIFF2+5) 
THEN  RATE_OF_DRYING  =  GOOD 

DISPLAY  "THE  SENSORS  AT  POSITION  { VAL[1] }/ ( VAL[2 ] }  ARE  DRYING  O.K. 
THE  SENSOR  READING  AT  STATION  2  IS  INCREASING  FASTER  THAN  THE 
READING  AT  STATION  1.   THE  WATER  HOLDING  CAPACITY  OF  THE  SOIL 
MAY  BE  LOWER  AT  THAT  LOCATION" 
DISPLAY  "  " 

BECAUSE  "If  sensor  stations  are  placed  far 
apart,  soil  characteristics  and  layerings 
at  each  station  may  be  different.  Soil 
types  that  hold  less  water  show  a  greater 
rate  of  potential  decrease  when  drying."; 

RULE  22 

IF  ACTIVATE  =  TRUE  AND 

THE_SENSOR  =  DRYING  AND 

DIFF_VAL  =  2  AND 

SPACEPLACE  -  YES  AND 

DIFF2  >  (DIFF1+5) 
THEN  RATE_OF_DRYING  =  GOOD 

DISPLAY  "THE  SENSORS  AT  POSITION  ( VAL[1] }/ (VAL[2 ] }  ARE  DRYING  O.K. 
THE  SENSOR  READING  AT  STATION  1  IS  INCREASING  FASTER  THAN  THE 
READING  AT  STATION  2.   THE  WATER  HOLDING  CAPACITY  OF  THE  SOIL 
MAY  BE  LOWER  AT  THAT  LOCATION" 
DISPLAY  "  " 

BECAUSE  "If  sensor  stations  are  placed  far 
apart,  soil  characteristics  and  layerings 
at  each  station  may  be  different.  Soil 
types  that  hold  less  water  show  a  greater 
rate  of  potential  decrease  when  drying."; 


297 

RULE  23 

IF  ACTIVATE  =  TRUE  AND 

THE_SENSOR  =  DRYING  AND 

DIFF_VAL  =  3  AND 

SPACE PLACE  =  NO  AND 

DIFF1  >  (DIFF2+5)  AND 

DIFF1  >  (DIFF3+5) 
THEN  RATE_OF_DRYING  =  GOOD 
CLS 

DISPLAY  "THE  SENSORS  AT  POSITION  { VAL[1] }/{ VAL[2] }  ARE  DRYING  O.K. 
THE  SENSOR  READING  AT  STATION  3  IS  INCREASING  FASTER  THAN  THE 
READINGS  AT  STATIONS  1  OR  2 .   IT  IS  LIKELY  THAT  THE  SENSOR  AT 
STATION  3  IS  PLACED  CLOSER  TO  THE  CLUSTER  OF  ROOTS  THAN 
THE  OTHER  TWO.  ALTHOUGH  LESS  LIKELY,  THE  WATER  HOLDING  CAPACITY 
OF  THE  SOIL  MAY  BE  LOWER  AT  THAT  LOCATION." 
DISPLAY  "   " 

BECAUSE  "If  sensor  stations  are  placed  far 
apart,  soil  characteristics  and  layerings 
at  each  station  may  be  different.  Soil 
types  that  hold  less  water  show  a  greater 
rate  of  potential  decrease  when  drying."; 

RULE  24 

IF  ACTIVATE  =  TRUE  AND 

THE_SENSOR  =  DRYING  AND 

DIFF_VAL  =  3  AND 

SPACEPLACE  =  NO  AND 

DIFF2  >  (DIFF1+5)  AND 

DIFF2  >  (DIFF3+5) 
THEN  RATE_OF_DRYING  =  GOOD 
CLS 

DISPLAY  "THE  SENSORS  AT  POSITION  ( VAL[1] )/ ( VAL[2] }  ARE  DRYING  O.K. 
THE  SENSOR  READING  AT  STATION  2  IS  INCREASING  FASTER  THAN  THE 
READINGS  AT  STATIONS  1  OR  3 .   IT  IS  LIKELY  THAT  THE  SENSOR  AT 
STATION  2  IS  PLACED  CLOSER  TO  THE  CLUSTER  OF  ROOTS  THAN 
THE  OTHER  TWO.  ALTHOUGH  LESS  LIKELY,  THE  WATER  HOLDING  CAPACITY 
OF  THE  SOIL  MAY  BE  LOWER  AT  THAT  LOCATION." 
DISPLAY  "   " 

BECAUSE  "If  sensor  stations  are  placed  far 
apart,  soil  characteristics  and  layerings 
at  each  station  may  be  different.  Soil 
types  that  hold  less  water  show  a  greater 
rate  of  potential  decrease  when  drying."; 

RULE  25 

IF  ACTIVATE  =  TRUE  AND 

THE_SENSOR  =  DRYING  AND 

DIFF_VAL  =  3  AND 

SPACEPLACE  =  NO  AND 

DIFF3  >  (DIFF1+5)  AND 
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DIFF3  >  (DIFF2+5) 
THEN  RATE_OF_DRYING  =  GOOD 
CLS 

DISPLAY  "THE  SENSORS  AT  POSITION  { VAL[ 1] }/ ( VAL[ 2 ] )  ARE  DRYING  O.K. 
THE  SENSOR  READING  AT  STATION  1  IS  INCREASING  FASTER  THAN  THE 
READINGS  AT  STATIONS  2  OR  3 .   IT  IS  LIKELY  THAT  THE  SENSOR  AT 
STATION  1  IS  PLACED  CLOSER  TO  THE  CLUSTER  OF  ROOTS  THAN 
THE  OTHER  TWO.  ALTHOUGH  LESS  LIKELY,  THE  WATER  HOLDING  CAPACITY 
OF  THE  SOIL  MAY  BE  LOWER  AT  THAT  LOCATION." 
DISPLAY  "   " 

BECAUSE  "If  sensor  stations  are  placed  far 
apart,  soil  characteristics  and  layerings 
at  each  station  may  be  different.  Soil 
types  that  hold  less  water  show  a  greater 
rate  of  potential  decrease  when  drying."; 

RULE  2  6 

IF  ACTIVATE  =  TRUE  AND 

THE_SENSOR  =  DRYING  AND 

DIFF_VAL  =  2  AND 

SPACEPLACE  =  NO  AND 

DIFF1  >  (DIFF2+5) 
THEN  RATE_OF_DRYING  =  GOOD 

DISPLAY  "THE  SENSORS  AT  POSITION  ( VAL[ 1] }/{ VAL[2 ] }  ARE  DRYING  O.K. 
THE  SENSOR  READING  AT  STATION  2  IS  INCREASING  FASTER  THAN  THE 
READING  AT  STATION  1.   IT  IS  LIKELY  THAT  THE  SENSOR  AT  STATION  2 
IS  PLACED  CLOSER  TO  THE  CLUSTER  OF  ROOTS  THAN  STATION  1. 
ALTHOUGH  LESS  LIKELY,  THE  WATER  HOLDING  CAPACITY  OF  THE  SOIL  MAY 
BE  LOWER  AT  THAT  LOCATION." 
DISPLAY  "  " 

BECAUSE  "If  sensor  stations  are  placed  far 
apart,  soil  characteristics  and  layerings 
at  each  station  may  be  different.  Soil 
types  that  hold  less  water  show  a  greater 
rate  of  potential  decrease  when  drying."; 

RULE  27 

IF  ACTIVATE  =  TRUE  AND 

THE_SENSOR  =  DRYING  AND 

DIFF_VAL  =  2  AND 

SPACEPLACE  =  NO  AND 

DIFF2  >  (DIFF1+5) 
THEN  RATE_OF_DRYING  =  GOOD 

DISPLAY  "THE  SENSORS  AT  POSITION  { VAL[1] >/{VAL[2] }  ARE  DRYING  O.K. 
THE  SENSOR  READING  AT  STATION  1  IS  INCREASING  FASTER  THAN  THE 
READING  AT  STATION  2.   IT  IS  LIKELY  THAT  THE  SENSOR  AT  STATION  1 
IS  PLACED  CLOSER  TO  THE  CLUSTER  OF  ROOTS  THAN  STATION  2. 
ALTHOUGH  LESS  LIKELY,  THE  WATER  HOLDING  CAPACITY  OF  THE  SOIL  MAY 
BE  LOWER  AT  THAT  LOCATION." 
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DISPLAY  "  " 

BECAUSE  "If  sensor  stations  are  placed  far 
apart,  soil  characteristics  and  layerings 
at  each  station  may  be  different.  Soil 
types  that  hold  less  water  show  a  greater 
rate  of  potential  decrease  when  drying."; 

RULE  28 

IF  ACTIVATE  =  TRUE  AND 

DIFF_VAL  =  3  AND 

DIFF1  <=  5  AND 

DIFF2  >  10  AND 

DIFF3  >  10  AND 
CONDITIONS  =  SUNNY_AND_HOT  AND 
READINGS_INCREASE  =  YES 
THEN  IMPROPER_PLAC  -  YES 
PWKS  QUESTMARK , D2 1 . . D2  2 , SENRED 

DISPLAY  "CHECK  FOR  A  FAULTY  SENSOR  AT  STATION  3,  LOCATION 
{VAL[1] )/(VAL[2] }.  IF  SENSOR  CHECKS  OUT  O.  K. ,  IT  MAY  NOT 
HAVE  BEEN  PLACED  PROPERLY  IN  THE  ROOT  ZONE.   CHECK  PLACEMENT 
AND  MOVE  IF  NECESSARY" 

BECAUSE  "In  order  to  compare  relative  drying 
responses  reliably,  you  need  a  high  stress 
day.   Readings  that  have  not  been  increasing 
may  indicate  no  roots  are  present  yet."  ; 

RULE  29 

IF  ACTIVATE  =  TRUE  AND 

DIFF_VAL  =  3  AND 

DIFF1  >  10  AND 

DIFF2  <=  5  AND 

DIFF3  >  10  AND 
CONDITIONS  =  SUNNY_AND_HOT  AND 
READINGS_INCREASE  =  YES 
THEN  IMPROPER_PLAC  =  YES 
PWKS  QUESTMARK, D2 4. . D2 5, SENRED 

DISPLAY  "CHECK  FOR  A  FAULTY  SENSOR  AT  STATION  2,  LOCATION 
<VAL[1]}/{VAL[2] }.  IF  SENSOR  CHECKS  OUT  O.  K. ,  IT  MAY  NOT 
HAVE  BEEN  PLACED  PROPERLY  IN  THE  ROOT  ZONE.   CHECK  PLACEMENT 
AND  MOVE  IF  NECESSARY" 

BECAUSE  "In  order  to  compare  relative  drying 
responses  reliably,  you  need  a  high  stress 
day.   Readings  that  have  not  been  increasing 
may  indicate  no  roots  are  present  yet."  ; 
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RULE  30 

IF  ACTIVATE  =  TRUE  AND 

DIFF_VAL  =  3  AND 

DIFF1  >  10  AND 

DIFF2  >  10  AND 

DIFF3  <=  5  AND 
CONDITIONS  =  SUNNY_AND_HOT  AND 
READINGS_INCREASE  =  YES 
THEN  IMPROPER_PLAC  =  YES 
PWKS  QUESTMARK,D27. .D28,SENRED 

DISPLAY  "CHECK  FOR  A  FAULTY  SENSOR  AT  STATION  1,  LOCATION 
{VAL[1] }/{VAL[2] }.  IF  SENSOR  CHECKS  OUT  O.  K. ,  IT  MAY  NOT 
HAVE  BEEN  PLACED  PROPERLY  IN  THE  ROOT  ZONE.   CHECK  PLACEMENT 
AND  MOVE  IF  NECESSARY" 

BECAUSE  "In  order  to  compare  relative  drying 
responses  reliably,  you  need  a  high  stress 
day.   Readings  that  have  not  been  increasing 
may  indicate  no  roots  are  present  yet."  ; 

RULE  31 

IF  NUMBER  >  0 

THEN  QUIT  =  FALSE 

DISPLAY  "QUIT  THIS  CONSULTATION  AND  TYPE  THE  WORD  FIELD2  AT  THE 

DOS  PROMPT.  THIS  BATCH  FILE  WILL  LOAD  THE  SPREADSHEET.   YOU  NEED 

TO  RUN  SPREADSHEET  MACROS  ALT-Z  AND  ALT-R  (IN  THAT  ORDER)  . 

THESE  MACROS  SET  UP  THE  SPREADSHEET  WITH  NEW  DATA  FOR  THE  NEXT 

SENSOR  ANALYZED  BY  THIS  EXPERT  SYSTEM. 

AFTER  YOU  HAVE  RUN  THESE  MACROS,  RUN  THE  MACRO  ALT-S  TO  SAVE  THE 
WORKSHEET  AND  QUIT.   RE-RUN  THIS  KNOWLEDGE  BASE  WITH  THE  NEW 
DATA."; 

RULE  32 

IF  NUMBER  =  0 

THEN  QUIT  =  TRUE 

DISPLAY" 

SPREADSHEET  CAN  NOW  BE  RUN  TO  COMPRESS 

DATA.  PRESS  ALT-C  IN  SPREADSHEET,  THEN  RUN  PNUTGRO  AND 

PARAMETER  ADJUSTMENT/ IRRIGATION  SCHEDULING  ROUTINES." 

DISPLAY  "  " 

DISPLAY"  PRESS  RETURN  TO  CONTINUE"" 

BCALL  FIELD5; 

ASK  CONDITIONS  :  "WHAT  WERE  THE  WEATHER  CONDITIONS  THE  PREVIOUS 

DAY?"; 

ASK  TYPE  :  "WHAT  TYPE  OF  SOIL  MOISTURE  SENSOR  ARE  YOU  USING'"; 

ASK  SPACEPLACE  :  "DID  YOU  PLACE  SENSOR  STATIONS  FAR  APART  TO 

REPRESENT  DIFFERENT  SOIL  TYPES?"; 

ASK  READINGS_INCREASE  :  "HAVE  MOST  OF  THE  SENSOR  READINGS  AT  THIS 

LEVEL  BEEN  INCREASING  DURING  STRESS  PERIODS?"; 
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CHOICES  CONDITIONS  : 

SUNNY_AND_HOT ,  MOSTLY_SUNNY ,  RAINY ,  CLOUDY_AND_NO_RAIN , 

RAIN_AFTER_DRYING ; 

CHOICES  TYPE  : 

WATERMARK ,  TENSIOMETER ,  HEAT_PULSE_SENSOR ,  GYPSUM_BLOCK  ; 

CHOICES  SPACEPLACE  :  YES, NO; 

CHOICES  READINGS_INCREASE  :  YES, NO; 


APPENDIX  I 

"SENPOS",  PARAMETER  ADJUSTMENT  AND 

IRRIGATION  SCHEDULING  PROGRAM 

Program  Senzone; 

USES  dos,crt; 

VAR 

Line  :  string[170]  ; 

Firststring,Secondstring  :  string  [60]; 
Soilmark,Soilmark2,LLvalS,DULvalS  :  string  [6]; 
SenFlgS,SenValS,WrvalS,DflagS  :  string [6]; 
JulS , SWS , RLS , SenOf f S , SenDepS , Banks  :  string [ 6 ] ; 
Totzon,Pl,P2,Sl,S2,S3,RLl,RL2,RL3,ST,RLDEN  :  real; 
C1,W1,W2,W3,W4,W3U,W1L,W2U,W2L,RLW3U,RLW1L  :  real  ; 
Percent, RLW2U,RLW2L,WZ1,WZ2,WZ3,WZ4  :  real; 
Diff, Bias, Upzon,Downzon, Hold, FractWeightSuct  :  real; 
Composuct,WeightSuct,RLDReg,Zreg,Ztot,CumET  :  real; 
WeightSuctRegZone,WaterHi,WaterLo,QuanWater  :  real ; 
CpivotAmount,Trev,DaysToIrr,CpivotCapable  :  real; 
DaysToSubtract,DatToIrr,ActualPercent, Switch  :  real ; 
WeightSenRegZone,WeightSen,CompoSen,CompSen  :  real; 
LLval,DULval,LLR,DULR,LLNew,DULNew, level  :  real; 
IrriSuct,IrriType,CapablePercent,IrrAmount,IrriDepth  :  real; 
Wr f actor, Wrnew,Wrtot,Wrval,Zacc, Increment, DULTot  :  real; 
Number, Totsenl,Totsen2 ,Tempbankl,Tempbank2 , Project  :  integer; 
Q,I,L,M,N,K,Flag,Dat, Jul, Resl, Pass, Dep, Irridat  :  integer; 
Dflag, Posit, Width, Posit2 ,Width2, Posen,Bankno  :  integer; 
WaterFile,RLDFile,SensorFile,Wrfile,Wrfile2  :  Text; 
Sparam,Sprol,Spro2,Irroff  :  Text; 
Flagl  :  boolean; 
Watered, Sensred  :  char; 

(*  Number  of  sensor  depths  *) 
D  :  array  [1..7]  of  integer; 
(*  Water  contents  from  PNUTGRO,  weighted  to  sensor  zone 

(cm3/cm3)    *) 

WeightSW  :  array  [1..8,  1..8]  of  real; 

(*  Root  length  density  for  sensor  zone  (cm/cm3  *) 
WeightRLD  :  array  [1..7]  of  real; 

(*  Root  length/unit  area  for  PNUTGRO  zones  (cm/ cm2)  *) 
TotRLD  :  real; 

(*  Root  length/unit  area  for  sensor  zones  (cm/cm2)  *) 
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TotWeightRLD  :  real; 

(*  Total  root  length  density  for  regulation  zone  (cm/ cm3)  *) 
TotRLDRegZone  :  real ; 

(*  Soil  water  contents  from  PNUTGRO  soil  zones  (cm3/cm3)  *) 
SW  :  array  [1..8,  1..8]  of  real; 

(*  Root  length  density  in  PNUTGRO  soil  zones  (cm/ cm3)  *) 
RLD  :  array  [1..8]  of  real; 

(*  Soil  water  suctions  from  PNUTGRO  water  contents  (kPa)  *) 
Ten  :  array  [1..8,  1..8]  of  real; 

(*  Suction  difference  over  1  day  from  model  results  (kPa)  *) 
TenDiff  :  real; 

(*  Water  contents  from  sensor  readings  (cm3/cm3)  *) 
WaterZone  :  array  [1..2,  1..10]  of  real; 

(*  Depth  of  sensor  placement  (cm)  *) 
SenDep  :  array  [1..9]  of  integer; 

(*  Offset  of  sensor  from  center  of  row  (cm)  *) 
SenOff  :  array  [1..9]  of  integer; 

(*  Zone  of  influence  around  sensor  (cm)  *) 
Totzone  :  array  [1..6]  of  real; 

(*  Optimum  calculated  sensor  placement  in  zone  (cm)  *) 
Plac  :  array  [1..9]  of  real; 

(*  Sensor  suction  values  (kPa)  *) 
SenVal  :  array [1.. 2,  1..6,  1..9]  of  integer; 

(*  Temporary  storage  for  sensor  suction  values  (kPa)  *) 
SenTemp  :  array [1.. 2,  1..6,  1..9]  of  integer; 

(*  Suction  difference  over  1  day  from  sensors  (kPa)  *) 
SenValDiff  :  real; 

(*  Flags  used  by  expert  system  diagnostic  *) 
(*  for  each  sensor  suction  value  (0,1, or  2)  *) 
SenFlg  :  array[1..2,  1..6,  1..9]  of  integer; 

(*  Average  sensor  read  at  same  depth  over  stations  (kPa)  *) 
AveSen  :  array [1.. 2,  1..10]  of  real; 

(*  Water  content  diffs  between  days  1  and  2  *) 
(*  derived  from  sensor  reads  (cm3/cm3)  *) 
SenWaterDiff  :  array [1.. 5]  of  real; 

(*  Maximum  average  sensor  read  at  same  depth  *) 
(*  across  stations  (kPa)  *) 
SenMax  :  array [1.. 5]  of  real; 

(*  Water  uptake  derived  from  sensor  readings  (cm)  *) 
WaterCon  :  array [1.. 5]  of  real; 

(*  Depth  of  soil  zone  from  PNUTGRO  soil  file  (cm)  *) 
Z  :  array  [1..9]  of  real; 

(*  Composite  regulation  zone  suction  (PNUTGRO)  (kPa)  *) 
Comp  :  array  [1..8]  of  real; 

(*  Sensor  determined  rooting  depth  (cm)  *) 
RootDepthSen  :  integer; 

(*  Model  determined  rooting  depth  (cm)  *) 
RootOepthModel  :  integer; 
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procedure  Bugs; 
begin 

while  ReadKey  =  ( '  ' )  do 
end; 

procedure  Zerocomp; 
begin 

For  M  :=  1  to  8  do 

Comp[M]  :=  0; 
end; 

procedure  Placldeal ; 
begin 
clrscr; 
Placfl]  :=  8; 
writeln( 'Optimum  sensor  placements  through 

the  root  zone  are ' ) ; 
writeln( '  ' )  ; 
For  I  :=  1  to  Dep-1  do 
begin 

Plac[I+l]  :=   Plac[I]  +  14; 
writeln(Plac[I] :3:0, '  cm1); 
end; 
writeln(Plac[I+l] :3:0, '  cm'); 
writeln  ( ' ' ) ; 

writeln( 'Press  any  key  to  continue ') ;bugs; | 
clrscr; 
end; 

procedure  ReadinDUL; 
begin 

reset  (Sparam) ; 

readln  (Sparam, Line) ; 

Soilmark  :=  Copy(Line,56,2) ;  (*  read  desired  soil  class  *) 

Close  (Sparam) ; 

reset  (Sprol) ; 

repeat     (*  read  all  lines  down  to  soil  of  interest  *) 
readln (Sprol, Line) ; 
Soilmark2  :=  Copy(Line,2,2) ; 
until  Soilmark  =  Soilmark2 ; 

readln (Sprol, Line) ; (*  copy  single  soil  parameters  line*) 
For  I  :=  1  to  5  do 
begin 

readln (Sprol, Line) ; 
DULvalS  :=  Copy (Line, 18, 3) ; 
Val(DULvalS,DULval,Resl) ; 
DULR  :=  DULval/1000.0; 
DULTot  :=  DULTot  +  DULR; 
end; 

WaterHi  :=  DULTot/5; 
clrscr; 
writeln  ('Average  DUL  value  for  top  5  soil  zones  = 
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1 , WaterHi : 5 : 3 , ' . * )  ; 
writeln  ( '  ' ) ; 

writeln  ('Press  return  to  continue ') ;bugs; 
Close (Sprol) ; 
end; 

procedure  Zoneadjust; 
begin 
Is-  l; 

Totzonefl]  :=  Totzon; 
Totzone[I+l]  :=  Totzon; 
For  I  :=  1  to  Dep-1  do 
begin 

(*  Always  start  D[I+1]  with  14  cm  zone  *) 
Downzon  :=  D[I]  +  Totzone[I]/2 ; 
Upzon  :=  D[I+1]  -  Totzon/2; 

If  (Downzon  <  Upzon)  then         (*  expand  zone  *) 
begin 

Totzone[I+l]  :=  Totzon  +  2*(Upzon  -  Downzon); 
clrscr ; 
writeln  ('    The  sensor  at  depth  ■ ,D[I+1],'  cm  is  placed 

too  far  below  the ' ) ; 
writeln  ('sensor  above  it.   Normally,   a  sensors  zone  of 

influence  should  be  ' ) ; 
writeln  ('no  more  than  about  ', Totzon:  3 : 0,  '  cm.  The  zone 

of  influence  will  be  expanded'); 
writeln  ('to  ' ,Totzone[I+l] :4 : 0, '  cm  so  that  sensor 

readings  can  be  used  to  provide'); 
writeln  ('feedback  to  PNUTGRO.   Feedback  information 

will  still  be  applied  but'); 
writeln  ('with  less  influence  than  if  you  had  followed 

directions  for1); 
writeln  ( 'sensor  placement. ' ) ; 
writeln  ( '   ' )  ; 

writeln  ('  Press  any  key  to  continue'); 

writeln  ('  ');bugs; 

end; 
If  (Downzon  >  Upzon)  and  (I  =  1)  then 

(*  reduce  top  2  zones  equally  until  *) 
(*  there  is  no  overlapping  *) 

begin 
repeat 

Totzone[I]  :=  Totzone[I]  -  (Downzon  -  Upzon) /2 ; 
Totzone[I+l]  :=  Totzonefl]; 
Upzon  :=  D[I+1]  -  Totzone[I]/2; 
Downzon  :=  D[I]  +  Totzone[I]/2  ; 
until  Downzon  <  Upzon  +  0.10; 
end; 
If  (Downzon  >=  Upzon)  and  (I  >  1)  then 

Totzone[I+l]  :=  Totzon  -  2* (Downzon-Upzon) ; 
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end; 
end; 

procedure  Waterlnput; 
begin 

reset (WaterFile) ; 
For  L  :=  1  to  16  do 
begin 

readln(WaterFile,Line) ;  (*  loop  to  beginning  of  data  *) 
end; 
repeat 

readln (WaterFile, Line) ; 
JulS  :=  Copy ( Line, 2, 3 ) ; 
Val(JulS,Jul,Resl) ; 
until  Jul  =  Dat-3;  (*  move  to  position  to  read  SW[I]  data  *) 

(*  Read  SW[Q,N]  data  for  Today  -  2   *) 
(»  and  up  to  7  others  from  0UT3.PN   *) 
For  Q  :=  1  to  Project  do 
begin 

readln (WaterFile, Line) ; 
For  N  :=  1  to  8  do 
begin 

SWS  :=  Copy (Line, Posit, Width ) ; 
Val(SWS,ST,Resl) ; 
SW[Q,N]  :=  ST/1000.0; 
Posit  :=  Posit+6; 
end; 
Posit  :=  61; 
end; 
Close (WaterFile)  ; 
end; 

procedure  RLDInput; 
begin 

reset (RLDFile) ; 
For  L  :=  1  to  16  do 
begin 

readln (RLDFile, Line) ;  (*  loop  to  beginning  of  data  *) 
end; 
repeat 

readln (RLDFile, Line) ; 
JulS  :=  Copy(Line,2,3) ; 
Val( JulS, Jul, Resl) ; 
until  Jul  =  Dat-2;      (*  move  to  position  to  read  RLD's  *) 

readln (RLDFile, Line) ;   (*  read  RLD[I]  data  from  0UT2.PN  *) 
For  M  :=  1  to  8  do 
begin 

Width2  :=  4; 

RLS  :=  Copy ( Line, Posit2, Width2 ) ; 

Val(RLS,RLDEN,Resl) ; 
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If  Resl  =  2  then 
begin 

Posit2  :=  Posit2+2; 
Width2  :=  2; 

RLS  :=  Copy (Line, Posit2, Width2) ; 
Val(RLS,RLDEN,Resl) ; 
RLD[M]  :=  RLDEN/ 100.0; 
Posit2  :=  Posit2+3; 
end 
Else 
begin 

RLD[M]  :=  RLDEN; 
Posit2  :=  Posit2+5; 
end; 

(*  Root  length/unit  area  *) 
TotRLD  :=  TotRLD  +  RLD[M] *Z[M] ; 
end; 
Close (RLDFile) ; 
end; 

procedure  Sensorlnput; 
begin 

reset (SensorFile) ; 
For  L  :=  1  to  4  do 
begin 

readln (SensorFile, Line) ;  (*  loop  to  beginning  of  data  *) 
end; 
Banks  :=  Copy (Line, 3 , 1) ; 
Val( Banks, Bankno, Resl) ; 
L  :=  1; 

while  Posen  <=  Length (Line)  do 
begin 

(*  Read  sensor  depths  from  1st  line  *) 
SenDepS  :=  Copy (Line, Posen, 3) ; 

(*  Read  sensor  offsets  from  1st  line  *) 
SenOffS  :=  Copy (Line, Posen+3 , 3)  ; 
Val (SenDepS, SenDep[L] ,Resl) ; 
Val(SenOffS,SenOff [L] ,Resl) ; 
Posen  :=  Posen+6; 
L  :=  L+l; 
end; 
For  M  :=  Bankno  downto  1  do 
begin 

(*  Reset  position  marker  to  read  sensor  values  *) 
Posen  : =  8 ; 

readln(SensorFile,Line) ;  (*  read  yesterday's  readings  *) 
L  :=  1; 

while  Posen  <=  Length (Line)  do 
begin 

SenValS  :=  Copy (Line, Posen, 3) ; 
SenFlgS  :=  Copy ( Line, Posen+3, 3) ; 
Val(SenValS,SenVal[l,M,L] ,Resl) ; 
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Val(SenFlgS,SenFlg[l,M,L] ,Resl) ; 
SenTemp[l,M,L]  :=  SenVal[l,M,L] ; 
Posen  :=  Posen+6; 
L  :=  L+l; 
end; 
Posen  :  =  8 ; 

readln(SensorFile,Line) ;     (*  read  today's  readings  *) 
L  :=  1; 

while  Posen  <=  Length (Line)  do 
begin 

SenValS  :=  Copy (Line, Posen, 3 ) ; 
SenFlgS  :=  Copy(Line,Posen+3,3) ; 
Val(SenValS,SenVal[2,M,L] ,Resl) ; 
Val (SenFlgS, SenFlg[ 2, M,L] ,Resl) ; 
SenTemp[2,M,L]  :=  SenVal[2,M,L] ; 
Posen  :=  Posen+6; 
L  :=  L+l; 
end; 
readln(SensorFile,Line) ;     (*  skip  positions  line  *) 
end; 
Close (SensorFile) ; 
end; 

procedure  AverageSensors ; 
begin 

Tempbankl  :=  Bankno; 
Tempbank2  :=  Bankno; 
L  :=  l; 
M  :=  1; 

while  L  <=  Number  do 
begin 

while  M  <=  bankno  do 
begin 

If  SenFlg[l,M,L]  =  2  then 
begin 

SenTemp[l,M,L]  :=  0; 
Tempbankl  :=  Tempbankl-1; 
end; 
If  SenFlg[2,M,L]  =  2  then 
begin 

SenTemp[2,M,L]  :=  0; 
Tempbank2  :=  Tempbank2-1; 
end; 

(*  Total  over  banks  for  day  1  *) 
Totsenl  :=  Totsenl  +  SenTemp[l,M,L] ; 

(*  Total  over  banks  for  day  2  *) 
Totsen2  :=  Totsen2  +  SenTemp[2 ,M,L] ; 
M  :=  K+l; 
end; 
If  (Tempbankl  =  0)  then 
AveSen[l,L]  :=  0 

(*  Average  over  banks  for  day  1  *) 
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Else  AveSen[l,L]  :=  Totsenl/Tempbankl ; 
If  (Tempbank2  =  0)  then 
AveSen[2,L]  :=  0 

(*  Average  over  banks  for  day  2  *) 
Else  AveSen[2,L]  :=  Totsen2/Teinpbank2  ; 

writeln  ('Ave  of  sensor  ' ,SenDep[L] , '/ ' ,Senoff [L] , 

■reads  for  day  2  =  ' , AveSen[2 ,L] :4 : 0) ;bugs; 
L  :=  L+l; 
Totsenl  : =0 ; 
Totsen2  :=0; 
M  :=  1; 
end; 
end; 

procedure  ChooseHighAve ; 
begin 
L  :=  1; 
K  :=  l; 
Pass  : =  0 ; 

while  L  <=  Number-1  do 
begin 

WZ1  :=  AveSen[l,L] ; 
WZ2  :=  AveSen[2,L] ; 
WZ3  :=  AveSen[l,L+l] ; 
WZ4  :=  AveSen[2,L+l] ; 
If  SenDep[L+l]  =  SenDep[L]  then 
begin 

Pass  :=  Pass  +1; 
If  WZ4  >  WZ2  then 

SenMax[K]  :=  WZ4 
Else  SenMax[K]  :=  WZ2; 
If  (Pass  >=  2)  and  (Hold  >  SenMax[K])  then 

SenMax[K]  :=  Hold; 
Hold  :=  SenMax[K];     (*  Hold  highest  value  *) 


(*  Reset  same  depth  pass  counter  *) 


AveSen[l,L] ; 
AveSen[2,L] ; 
WZ3  :=  AveSen[l,L+l] ; 
WZ4  :=  AveSen[2,L+l] ; 
SenMax[K]  :=  WZ2; 
end; 
writeln ( 'Zone  ' ,K, '  max  average  sensor  suction  =  ', 

SenMax[K] :4:0) ; 
bugs  ; 
end;  (*  while  *) 


L  :  = 

L+l; 

end 

se 

begin 

Pass 

:=  0 

K  :  = 

K+l; 

L  :  = 

L+l; 

WZ1 

:=  Av 

WZ2  : 

:=  Av 
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end; 

procedure  WaterContents ;  (*   Equations  fit  to  published   *) 
begin  (*   retention  curve  for  Millhopper 

(*   Sand.  Sensor  suction  is   *) 
(*   converted  to  water  content   *) 
For  M  :=  1  to  2  do  (*  day  counter  *) 

begin 

For  L  :=  1  to  Number  do 
begin 

If  AveSen[M,L]  >=  20  then 
WaterZone[M,L]  :=(exp(-0.281929*ln(AveSen[M, L] ) ) ) *0. 1398385; 
If  (AveSen[M,L]  <  20)  and  (AveSen[M,L]  >=  8)  then 
WaterZone[M,L]  :=  (exp(-0.922280*ln(AveSen[M,L] ))) *0. 91594 ; 
If  (AveSen[M,L]  <  8)  and  (AveSen[M,L]  >=  3)  then 
WaterZone[M,L]  :=  -0. 00227067*AveSen[M,L] * 

AveSen [M,L] -0.02 1027 *AveSen[M,L] +0.452 191; 
If  AveSen[M,L]  <  3  then  WaterZone[M, L]  :=  0.380; 
writeln  ( '  ' )  ; 

writeln( 'Water  content  for  Day  ' ,M, '  sensor  ', 
SenDep[L], '/' ,SenOff [L] , '  is  ■ ,WaterZone[M, L] :5:3) ; 
bugs ; 
end; 
end; 
end; 

procedure  Calzone; 
begin 

CI  :=  D[I]-(Totzone[I]/2) ; 
Wl  :=  Pl-Cl; 

If  Wl  <=  0  then  Wl  :=  0; 
W2  :=  Totzone[I]/2-Wl; 
W3  :=  D[I]+(Totzone[I]/2) ; 
If  W3  >  P2  then 
begin 

W4  :=  W3-P2; 

W3U  :=  W4/Totzone[I]*  S3; 
RLW3U  :=  W4/Totzone[I]*  RL3 ; 
W3  :=  P2; 
end; 

(*  Calculate  weighted  water  contents  around  sensor  *) 
W1L  :=  Wl/Totzone[I]*Sl; 
W2U  :=  W2/Totzone[I]*S2; 
W2L  :=  (W3-D[I])/Totzone[I]*S2; 

(*  Calculate  composite  water  content  *) 
WeightSW[M,I]  :=  W1L+W2U+W2L+W3U; 

(*  Calculate  weighted  root  length/area  around  sensor  *) 
RLW1L  :=  Wl/Totzone[I]*RLl; 
RLW2U  :=  W2/Totzone[I]*RL2; 
RLW2L  :=  (W3-D[I] )/Totzone[I] *RL2 ; 

(*  Calculate  composite  RLD  *) 
WeightRLD[I]  :=  (RLWlL+RLW2U+RLW2L+RLW3U)/Totzone[I] ; 
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(*  Calculate  total  weighted  root  length/area  only  once  *) 
If  M  =  1  then 

TotWeightRLD  :=  TotWeightRLD  +  WeightRLD[I] *Totzone[I] ; 
writeln  ('PNUTGRO  -  DAY  ■ ,M, '  level  ' ,1,  ■  SW  =   ', 

WeightSW [M , I ] : 9 : 5 ) ; bugs ; 
W1L  :=  0.0; 
W2U  :=  0.0; 
W2L  :=  0.0; 
W3U  :=  0.0; 
RLW1L  :=  0.0; 
RLW2U  :=  0.0; 
RLW2L  :=  0.0; 
RLW3U  :=  0.0; 
end; 

procedure  FindSenZone; 
begin 

(*  Do  Today  -  2  and  Today  -1  readings  *) 
(*  and  up  to  6  more   *) 
For  M  :=  1  to  Project  do 
begin 

(*  Loop  through  zone  with  up  to  5  sensor  depths  *) 
For  I  :=  1  to  Dep  do 

begin 

If  (D[I]  >  Z[l])  and  (D[I]  <=  (Z[l]  +  Z[2]))  then 
begin 

PI  :=  Z[l] ; 

P2  :=  Z[l]+Z[2]  ; 

51  :=  SW[M,1] ; 

52  :=  SW[M,2] ; 

53  :=  SW[M,3] ; 

RL1  :=  RLD[1]*Z[1] ; 

RL2  :=  RLD[2]*Z[2] ; 

RL3  :=  RLD[3]*Z[3] ; 
end; 

If  (D[I]  >  (Z[l]+Z[2]))  and  (D[I]  <=  (Z[l]+Z[2]+Z[3]))  then 
begin 

PI  :=  Z[l]+Z[2] ; 

P2  : =  Z [ 1 ] +Z [ 2 ] +Z [ 3 ] ; 

51  :=  SW[M,2]; 

52  :=  SW[M,3] ; 

53  :=  SW[M,4]; 

RL1  :=  RLD[2]*Z[2] ; 
RL2  :=  RLD[3]*Z[3] ; 
RL3  :=  RLD[4]*Z[4] ; 
end; 
If  (D[I]  >  (Z[l]+Z[2]+Z[3]))  and 

(D[I]  <=  (Z[l]+Z[2]+Z[3]+Z[4]))  then 
begin 

PI  :=  Z[l]+Z[2]+Z[3]  ; 
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P2  :=  Z[l]+Z[2]+Z[3]+Z[4]  ; 

51  :=  SW[M,3] ; 

52  :=  SW[M,4] ; 

53  :=  SW[M,5] ; 

RL1  :=  RLD[3]*Z[3]  ; 
RL2  :=  RLD[4]*Z[4]  ; 
RL3  :=  RLD[5]*Z[5] ; 
end; 
If  (D[I]  >  (Z[l]+Z[2]+Z[3]+Z[4]) )  and 

(D[I]  <=  (Z[l]+Z[2]+Z[3]+Z[4]+Z[5]))  then 
begin 

PI  :=  Z[l]+Z[2]+Z[3]+Z[4] ; 

P2  :=  Z[l]+Z[2]+Z[3]+Z[4]+Z[5] ; 

51  :=  SW[M,4] ; 

52  :=  SW[M,5] ; 

53  :=  SW[M,6] ; 

RL1  :=  RLD[4]*Z[4] ; 
RL2  :=  RLD[5]*Z[5] ; 
RL3  :=  RLD[6]*Z[6] ; 
end; 
If  (D[I]  >  (Z[l]+Z[2]+Z[3]+Z[4]+Z[5]))  and 

(D[I]  <=  (Z[l]+Z[2]+Z[3]+Z[4]+Z[5]+Z[6]))  then 
begin 

PI  :=  Z[l]+Z[2]+Z[3]+Z[4]+Z[5] ; 

P2  :=  Z[l]+Z[2]+Z[3]+Z[4]+Z[5]+Z[6] ; 

51  :=  SW[M,5] ; 

52  :=  SW[M,6] ; 

RL1  :=  RLD[5]*Z[5] ; 
RL2  :=  RLD[6]*Z[6] ; 
end; 
Calzone; 

end; 
end; 
end; 

procedure  RegZone; 
begin 

RLDReg  :=  TotRLD*Percent/100; 

L  :=  1; 

repeat 

RLDReg  :=  RLDReg  -  RLD[L] *Z [L] ; 

If  RLDReg  >=  0  then  Zreg  :=  Zreg  +  Z[L]; 

If  RLDReg  <  0  then  Zreg  :=  Zreg  + 

(RLD[L]*Z[L]+RLDReg)/RLD[L] ; 
L  :=  L  +  1; 
until  RLDReg  <  0; 

writelnf 'Regulation  zone  is   ',Zreg:5:2,'  cm');bugs; 
end; 

procedure  CalRLDRegZone; 
begin 
L  :=  1; 
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while  Ztot  <  Zreg  -  Totzone[L]  +  5  do 
begin 

Ztot  :=  Ztot  +  Totzone[L]; 

TotRLDRegZone  :=  TotRLDRegZone  +  WeightRLD[L] *Totzone[L] ; 
L  :=  L+l; 
end; 
clrscr; 
writeln  ('Your  sensors  are  oriented  so  that  irrigation 

forecasts  will  be  based'); 
writeln  ('on  model  results  over  a  ', Ztot: 4:0,  '  cm  zone 

of  influence. ' ) ; 
writeln  ('Irrigation  will  still  replenish  a  ',Zreg:4:o,  '  cm 

zone  corresponding'), 
writeln  ('to  a  ', Percent: 3 : 0, '  percent  zone  of  regulation  as 

you  specified. ' ) | 
writeln  (  '  ' )  ; 
end; 

procedure  Suctions;  (*  Equations  fit  to  published  *) 

begin  (*  retention  curve  for  Millhopper  Sand.*) 

(*  Equations  convert  modeled  SW  to  suction  *) 
Ztot  :=  0.0; 

For  M  :=  1  to  Project  do     (*   day  counter  *) 
begin 

For  L  :=  1  to  Dep  do  (*  depth  counter,  5  MAX  *) 

begin 

If  WeightSW[M,L]  <=  0.06  then 
Ten[M,L]  :=  (exp(-3.54825*ln(WeightSW[M,L] ))) *0. 00092997; 
If  (WeightSW[M,L]  >  0.06)  and 

(WeightSW[M,L]  <=  0.1345)  then 
Ten[M,L]  :=  (exp(-l. 08427*ln(WeightSW[M, L] ))) *0. 90919 ; 
If  (WeightSW[M,L]  >  0.1345)  and 

(WeightSW[M,L]  <=  0.37)  then 
Ten[M,L]  :=  -22 . 9066*WeightSW[M, L] *WeightSW[M,L]-10. 0173* 

WeightSW[M,L]+9. 82398; 
WeightSuct  :=  (WeightRLDfL] *Totzone[L] )/TotWeightRLD*Ten[M,L] ; 
CompoSuct  :=  CompoSuct  +  WeightSuct; 
WeightSuctRegZone  :=  (WeightRLDfL] *Totzone[L] )/ 

TotRLDRegZone*Ten[M,L] ; 
(*  Composite  suction  in  regulated  zone  *) 
If  Ztot  <=  Zreg  -  TotzonefL]  +  5  then 
begin 

Ztot  :=  Ztot  +  Totzone[L] ; 
Comp[M]  :=  Comp[M]  +  WeightSuctRegZone; 
end; 
writeln  ( '  ' )  ; 

writeln (' Suction  is  • ,Ten[M,L] : 5: 2, '  in  sensor  zone  ' ,  L)  ; 
writeln ( 'Composite  Suction   ' , Composuct : 5 : 2 , ' Reg  zone  ', 

Comp[M]  :5:2)  ; 
end;  (*  depth  counter  *) 
writeln ( 'Composite  suction  in  entire  zone  is   ', 
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Composuct : 5 : 2 , '  kPa ' ) ; 
writeln( 'Composite  suction  in  regulation  zone  is  ', 

Comp[M] :5:2, '  kPa ' ) ; bugs ; 
Composuct  : =  0 ; 
Ztot  :=  0; 
end;  (*  day  counter  *) 
end; 

procedure  SuctionsAlt; 

(*   Equations  fit  to  expermental  data   *) 
(*   for  Millhopper  Sand.  Equation  is  extrapolated   *) 
(*   outside  data  points  to  be  consistent  with  range  *) 
(*   of  published  curve.  *) 

(*   Equations  convert  modeled  SW  to  suction  *) 
begin 

Ztot  :=  0; 

For  M  :=  1  to  Project  do    (*   day  counter  *) 
begin 

For  L  :=  1  to  Dep  do   (*   depth  counter  *) 
begin 

(*  Approx  curve  *) 
Ten[M,L]  :=  402. 519*exp(-33 . 0144*WeightSW[M, L] ) ; 
WeightSuct  :=  (WeightRLD[L] *Totzone[L] )/TotWeightRLD* 

Ten[M,L] ; 
CompoSuct  :=  CompoSuct  +  WeightSuct; 
WeightSuctRegZone  :=  (WeightRLD[L] *Totzone[L] )/ 

TotRLDRegZone*Ten[M,L] ; 
(*  Composite  suction  in  regulated  zone  *) 
If  Ztot  <=  Zreg  -  Totzone[L]  +  5  then 
begin 

Ztot  :=  Ztot  +  Totzone[L] ; 
Comp[M]  :=  Comp[M]  +  WeightSuctRegZone; 
writeln  ( ' pass ' )  ; 
end; 
writeln  ( '  ' )  ; 

writeln ( 'Suction  is  ■ ,Ten[M,L] :5:2 , •  in  sensor  zone  ',L); 
writeln ( 'Composite  Suction   ' ,Composuct:5:2 , 'Reg  zone  ', 

CompfM] :5:2) ; 
end;  (*  depth  counter  *) 
writeln ( 'Composite  suction  in  entire  zone  is   ', 

Composuct : 5 : 2 ,  '  kPa ' ) ; 
writeln ( 'Composite  suction  in  regulation  zone  is  ', 

ComptM] :5:2, '  kPa');bugs; 
Composuct  : =  0 ; 
Ztot  :=  0; 
end;  (*  day  counter  *) 
end; 

procedure  WaterFromSuction; 

(*  Millhopper  Sand  Retention  Curve  *) 
begin 

If  IrriSuct  >=  20  then 
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(exp(-0.281929*ln(IrriSuct) ) ) *0. 1398385 ; 
<  2  0)  and  (IrriSuct  >=  8)  then 
WaterLo  :=  (exp(-0.922280*ln(IrriSuct) )) *0. 91594 ; 
If  (IrriSuct  <  8)  and  (IrriSuct  >=  3)  then 

WaterLo  :=  -0. 00227067*IrriSuct*IrriSuct-0. 021027* 

IrriSuct+0. 452191; 
If  IrriSuct  <  3  then  WaterLo  :=  0.380; 
end; 


WaterLo 
If  (IrriSuct 


procedure  DayToIrrigate; 
begin 

reset(Irroff) ;        (*  Read  irrigation  adjustment  *) 
readln(Irroff, Increment) ; 
Close (Irroff) ; 

(*  Start  comparison  with  today's  reading  *) 
IrriDat  :=  Dat  -  2; 
M  :=  1; 

while  level  >  Comp[M]  do 
begin 

IrriDat  :=  IrriDat  +  1; 
M  :=  M+l; 
end; 

(*  Predicted  composite  suction  at  irrigation  date  *) 
IrriSuct  :=  Comp[M]; 

(*  Calculate  water  content  using  retention  curve  *) 
(*   from  predicted  composite  suction  at  irrig  date  *) 
WaterFromSuction ; 
QuanWater  :=  (WaterHi-WaterLo) *Zreg*10+Increment; 

(*  Special  case  of  center  pivot  *) 
If  IrriType  =  1  then 
begin 
clrscr; 
writeln  ('Enter  the  amount  of  water  your  system 

applies  at  100  %  travel  (mm)'); 
readln  (CpivotAmount) ; 
writeln  ('Enter  time  to  traverse  the  field  at  100% 

travel  (hrs) ') ; 
readln  (Trev) ; 
DaysToIrr  :=  (Irridat-Dat) ; 
If  DaysToIrr  <=  0  then 
begin 

CpivotCapable  :=  CpivotAmount; 
CapablePercent  :=  100; 
end 
Else 
begin 

CpivotCapable  :=  DaysToIrr*CpivotAmount*24/Trev; 
CapablePercent  :=  (Trev/ (24*DayaToIrr) *100) ; 
end; 
If  CpivotCapable  <  QuanWater  then 
begin 
clrscr; 
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writeln  ('You  need  to  irrigate  the  last  part  of 

the  field  by  • )  ; 
writeln  ('day  ',Irridat,'.  Your  system  is  not 

capable  of  supplying  ' ) ; 
writeln  ('the  needed  ' , QuanWater : 4 : 1 ,  '  mm  even 

if  you  start  it  today.'); 
writeln  ('Run  the  system  today  at  ', 

CapablePercent: 4 : 0, '  percent.   This  will  ' ) ; 
writeln  ('apply  ' , CpivotCapable: 4 : 0,  '  mm.'); 
end 
Else 
begin 
clrscr; 

DaysToSubtract  :=  QuanWater/ (CpivotAmount*24/Trev) , 
DatToIrr  :=  Irridat  -  DaysToSubtract; 
ActualPercent  :=  (Trev/ (24*DaysToSubtract) *100) ; 
writeln  ('You  will  need  to  apply  ' , QuanWater: 4 : 1, ' 

mm  water  on  day  ', DatToIrr: 5:2) ; 
writeln  ('This  corresponds  to  a  percentage  timer 

setting  of  ',  ActualPercent: 4 : 0, '.') ; 
end; 
end 
Else 
begin 
clrscr; 

writeln  ('If  weather  conditions  are  the  same  as  yesterdays'); 
writeln  ( ' (but  no  rain)  you  will  need  to  irrigate  early  on 

day  ',IrriDat, ' . •) ; 
writeln  ('Apply  ', QuanWater: 4: 1, '  mm  water  to  the  field  to'); 
writeln  ('replenish  ', Percent: 3:0, '  percent  of  the  entire 

zone' ) ; 
end;  (*  else  *) 
end; 

procedure  CompoSensor; 

(*  Calculate  composite  sensor  reading  in  zone  *) 
(*  using  averages  across  field  for  day  2  (today)  *) 
begin 
Ztot  :=  0.0; 

For  L  :=  1  to  Dep  do   (*   depth  counter,  5  MAX  *) 

begin 
WeightSen  :=  (WeightRLD[L] *Totzone[L] )/TotWeightRLD* 

SenMax[L] ; 
CompoSen  :=  CompoSen  +  WeightSen; 

WeightSenRegZone  :=  (WeightRLD[L] *Totzone[L] )/TotRLDRegZone 

*SenMax[L] ; 
(*  Composite  suction  in  regulated  zone  *) 
If  Ztot  <=  Zreg  -  Totzone[L]  +  5  then 
begin 

Ztot  :=  ztot  +  TotzonefL]; 
CompSen  :=  CompSen  +  WeightSenRegZone; 
end; 
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writeln  ( '  ' ) ; 

writeln( 'Composite  Sensor  Suction   ' ,CompoSen: 5: 2 , ' 

Reg  zone  ', CompSen: 5: 2)  ; 
end;  (*  depth  counter  *) 

writeln ( 'Composite  suction  in  entire  zone,  day  2  is   ', 

CompoSen : 5 : 2 , '  kPa ' ) ; 
writeln ( 'Composite  suction  in  regulation  zone,  day  2  is 

■ ,CompSen:5:2, '  kPa ' ) ; bugs ; 
CompoSen  :=  0; 
Ztot  :=  0; 
end; 

procedure  Sprof ileModif ; 
begin 

If  (Watered  in  ['N','n'])  and  (SensRed  in  ['Y'.'y'])  then 

begin 
If  (Comp[2]  >  CompSen  +  10)  or  (CompSen  >  Comp[2]  +  10)  then 
begin 

reset  (Sparam) ; 
readln  (Sparam, Line) ; 

Soilmark  :=  Copy (Line, 56, 2) ;  (*  read  soil  class  *) 
Close  (Sparam) ; 

rename (Sprol, 'C:\PNUTGRO\SPROFILE.PNI') ; 
reset  (Sprol) ; 
rewrite  (Spro2) ; 
(*  copy  all  lines  down  to  soil  of  interest  *) 
repeat 

readln (Sprol, Line) ; 
Soilmark2  :=  Copy (Line, 2 ,2)  ; 
writeln (Spro2, Line) ; 
until  Soilmark  =  Soilmark2; 
(*  copy  single  soil  parameters  line  *) 
readln (Sprol, Line) ; 
writeln (Spro2, Line) ; 
while  Dflag  <>  l  do 
begin 

readln (Sprol, Line) ; 
FirstString  :=  Copy (Line, 1,8) ; 
LLvalS  :=  Copy (Line, 11, 3)  ; 
Val(LLvalS,LLval,Resl) ; 
LLR  :=  LLval/1000.0; 
If  (Comp[2]  >  CompSen  +  10)  then 

LLNew  :=  LLR  +  0. 009* (Comp[2]  -  CompSen)/100 
Else 

LLNew  :=  LLR  -  0. 009* (Comp[2]  -  CompSen) /100; 
DULvalS  :=  Copy (Line, 18, 3) ; 
Val(DULvalS,DULval,Resl) ; 
DULR  :=  DULval/1000.0; 
If  (Comp[2]  >  CompSen  +  10)  then 

DULNew  :=  DULR  +  0. 021* (Comp[2 ]  -  CompSen)/100 
Else 

DULNew  :=  DULR  -  0. 021* (Comp[2 ]  -  CompSen)/100 ; 
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SecondString  :=  Copy (Line, 21, 54) ; 

writeln (Spro2 , Firststring, LLNew: 5:3, DULNew: 7:3, SecondString) ; 
DflagS  :=  Copy(Line,5, 1) ; 
Val(DflagS,Dflag,Resl) ; 
end; 
Close  (Spro2) ; 
Erase  (Sprol) ; 
clrscr; 

If  (Comp[2]  >  ContpSen  +  10)  then 
begin 
writeln ( 'Drained  upper  limits  and  lower  limits  of  soil  water 

content ' ) ; 
writeln ( 'were  increased  in  the  soil  characteristics  input  file 

to  PNUTGRO. ') ; 
writeln ( 'This  was  done  because  modeled  soil  water  suctions  were 

greater ' ) ; 
writeln ( 'than  measured  values  by  a  specified  amount  during 

drying. ' ) ; 
writeln('The  next  run  of  PNUTGRO  will  use  these  new  values.'); 
writeln  ( '  ' )  ; 

writelnf'  Press  any  key  to  continue' ); bugs; 

end 
Else 

begin 
writeln ( 'Drained  upper  limits  and  lower  limits  of  soil  water 

content ' ) ; 
writeln ( 'were  decreased  in  the  soil  characteristics  input  file 

to  PNUTGRO . ' ) ; 
writeln ( 'This  was  done  because  modeled  soil  water  suctions  were 

less' ) ; 
writeln ( 'than  measured  values  by  a  specified  amount  during 

drying. ' ) ; 
writeln ('The  next  run  of  PNUTGRO  will  use  these  new  values.'); 
writeln ( '  ' ) ; 

writeln('  Press  any  key  to  continue' ) ; bugs; ; 

end; 
end; 
end; 
end; 

procedure  RootDepth; 
begin 

For  M  :=  1  to  Bankno  do 
begin 

For  L  :=  1  to  Number  do 
begin 

If  (SenFlg[l,M,L]  =  2)  OR  (SenFlg[2,M, L]  =  2)  then 

SenValDiff  :=  Sentemp[2,M, L]  -  Sentemp[l,M,L] 
Else 

SenValDiff  :=  Senval[2,M, L]  -  Senval [1,M, L] ; 
If  SenValDiff  >=  5  then  (*  es  rule  *) 
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RootDepthSen  :=  Sendep  [L]; 
writeln(' Sensor  based  suction  increase  for  station  ' ,M, '  at 
'  ,Sendep[L] , '/' ,Senoff [L], '  is  ' ,SenValDif f :4 : 0, '  kPa1); 
end; 
end; 
writeln( 'Sensor  determined  rooting  depth  is  ', RootDepthSen, ' 

cm.1) ;bugs; 
For  L  :=  1  to  Dep  do 
begin 

TenDiff  :=  Ten[2,L]  -  Ten[l,L]; 

If  Ten  [2,L]  -  Ten[l,L]  >=  2  then       (*  es  rule  *) 
RootDepthModel  :=  D[L]  ; 
writeln( 'Model  based  suction  increase  at  level  ',L, ' 

is' , TenDiff :4:0, '  kPa'); 
end; 
writeln( 'Model  determined  rooting  depth  is  ', RootDepthModel , ' 

cm. ' ) ;bugs; 
end; 

procedure  WRModif; 

(*  Parameterization  of  root  weighting  factors  *) 
begin 

(*  Only  run  if  on  drying  cycle  *) 
If  (Watered  in  ['N','n'])  and  (SensRed  in  ['Y','y'])  then 
begin 
If  RootDepthSen  <>  RootDepthModel  then       (*  ES  rule  *) 
begin 
I  :=  1; 

rename (Wrfile, 'C:\PNUTGR0\WRM0D.DA2') ; 
rewrite (Wrfile2) ; 
reset (Wrfile) ; 

If  RootDepthSen  <  RootDepthModel  then 
begin 

repeat  (*  m0ve  down  *) 

Zacc  :=  Zacc  +  Z[I]  ; 
I  :=  1+1} 

readln(Wrfile,WrvalS) ; 
until  Zacc  >  RootDepthSen; 
end; 
If  RootDepthSen  >  RootDepthModel  then 
begin 

repeat  (*  move  down  *) 

Zacc  :=  Zacc  +  Z[I]  ; 
I  :=  1+1; 

readln(Wrfile,WrvalS) ; 
until  Zacc  >  RootDepthModel; 
end; 
while  not  EOF (Wrfile)  do 
begin 

readln(Wrfile,WrvalS) ; 
Val(WrvalS,Wrval,Resl) ; 
(*  Get  total  for  Wr's  below  depth  *) 
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Wrtot  :=  Wrtot  +  Wrval; 
end; 
reset (Wrfile) ;  (*  go  to  top  of  read  file  *) 

I  :=  1; 
Zacc  :=  0; 

If  RootDepthSen  <  RootDepthModel  then 
begin 

repeat  (*  copy  Wr's  *) 

Zacc  :=  Zacc  +  Z[I]; 
I  :=  1+1; 

readln(Wrfile,WrvalS) ; 
writeln(Wrfile2,WrvalS) ; 
until  Zacc  >  RootDepthSen; 
while  not  EOF (Wrfile)  do 
begin 

readln(Wrfile,WrvalS) ; 
Val(WrvalS, Wrval, Resl) ; 
(*  Algorithm  here  *) 

Wrnew  :=  Wrval  -  (Wrfactor*Wrval/Wrtot) ; 
writeln(Wrfile2,Wrnew:5:3) ; 
end; 
clrscr; 
writeln( 'Root  weighting  factors  below  ', Zacc: 4:0,  '  cm  were 

decreased' ) ; 
writeln( 'proportional  to  their  relative  magnitude.   This  was  done 

because ' ) ; 
writeln('the  sensors  indicate  that  significant  water  use  took 

place  at' ) ; 
writeln( 'shallower  depths  than  the  model  indicates.   These  new 

weighting' ) ; 
writeln( ' factors  will  be  used  for  the  next  run  of  PNUTGRO'); 
writeln( '  ' )  ; 
writeln('  Press  any  key  to  continue' ) ;bugs; 

end; 
If  RootDepthSen  >  RootDepthModel  then 
begin 

repeat  (*  copy  Wr's  *) 

Zacc  :=  Zacc  +  Z[I]  ; 
I  :=  I+l; 

readln(Wrfile,WrvalS) ; 
writeln(Wrfile2,WrvalS) ; 
until  Zacc  >  RootDepthModel ; 
while  not  EOF (Wrfile)  do 
begin 

readln(Wrfile,WrvalS) ; 
Val(WrvalS, Wrval, Resl) ; 
(*  Algorithm  here  *) 
Wrnew  :=  Wrval  +  (Wrfactor*Wrval/Wrtot) ; 
writeln(Wrfile2,Wrnew:5:3) ; 
end; 
clrscr; 


321 

writeln( 'Root  weighting  factors  below  ',Zacc:4:0,  '  cm  were 

increased ' ) ; 
writeln( 'proportional  to  their  relative  magnitude.   This  was  done 

because ' ) ; 
writeln('the  sensors  indicate  that  significant  water  use  took 

place  at' ) ; 
writeln( 'deeper  depths  than  the  model  indicates.   These  new 

weighting* ) ; 
writeln( 'factors  will  be  used  for  the  next  run  of  PNUTGRO'); 
writeln ( '  ' )  ; 
writeln('  Press  any  key  to  continue ') ;bugs; 

end; 
Close (Wrfile2) ; 
Erase (Wrfile) ; 
end; 
end; 
end; 

procedure  ChooseDepth ; 

(*  Find  lowest  water  content  corresponding  to  *) 
(*  highest  sensor  reading  at  same  depth  for   *) 
(*  calculation  of  water  differences  *) 
begin 
L  :=  1; 
K  :=  1; 
Pass  :=  0; 

while  L  <=  Number-1  do 
begin 

WZ1  :=  WaterZone[l,L] ; 
WZ2  :=  WaterZone[2,L]; 
WZ3  :=  Water Z one [1, L+l] ; 
WZ4  :=  WaterZone[2,L+l] ; 
If  SenDep[L+l]  =  SenDep[L]  then 
begin 

Pass  :=  Pass  +  1; 

If  ((WZ3-WZ4)  >  (WZ1-WZ2))  then 

SenWaterDiff [K]  :=  WZ3-WZ4 
Else  SenWaterDiff [K]  :=  WZ1-WZ2; 
If  (Pass  >=  2)  and  (Hold  >  SenWaterDiff [K] )  then 

SenWaterDiff [K]  :=  Hold; 
Hold  :=  SenWaterDiff [K] ;  (*  Hold  highest  value  *) 
L  :=  L+l; 
end 
Else 
begin 

Pass  :=  0; 

K  :=  K+l; 

L  :=  L+l; 

WZ1  :=  WaterZone[l,L] ; 

WZ2  :=  WaterZone[2,L] ; 

WZ3  :=  WaterZone[l,L+l] ; 
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WZ4  :=  WaterZone[2,L+l] ; 
SenWaterDiff [K]  :=  WZ1-WZ2; 
end; 
writeln('Zone  ',K,'    water  diff  =  ',  SenWaterDiff [K] ); bugs; 
end;  (*  while  *) 
end; 

procedure  Adjustlrrig; 
begin 

reset  (Irroff ) ; 

readln  (Irroff, Increment) ; 

If  Irridepth  >  Zreg  then 

Increment  : =  Increment  -  2.5; 

If  Irridepth  <  Zreg  then 

Increment  : =  Increment  +  2.5; 

rewrite  (Irroff) ; 

writeln  (Irroff , Increment: 3 : 1) ; 

Close  (Irroff) ; 
end; 

procedure  WaterDepth; 
begin 

If  I rr Amount  >  0  then 
begin 

For  M  :=  1  to  Bankno  do 
begin 

For  L  :=  1  to  Number  do 
begin 
If  (Sentemp  [1,M,L]  -  sentemp  [2,M,L]  >  5)  and 

(Sentemp  [2,M,L]  <  7)  then 
IrriDepth  :=  Sendep  [L] ; 
end; 
end; 
writeln ( 'Sensor  determined  depth  of  water  penetration  is 

' , IrriDepth: 3:0, '  cm. ');bugs; 
Adjustlrrig; 

end; 
end; 

procedure  ETCalc; 

(*  This  routine  is  not  currently  used  to  make  *) 
(*  decisions  regarding  parameterization  of  PNUTGRO. 
(*  Values  are  output  to  the  screen,  however.  *) 
begin 

(*  Only  run  if  on  drying  cycle  *) 
If  Watered  in  [•N,,'n']  then 
begin 

For  I  :=  l  to  Dep  do 
begin 

WaterCon[I]  :=  SenWaterDiff [I]  *  Totzone[I] ; 

(*  Convert  to  mm  water  *) 
CumET  :=  CumET  +  WaterConfl] *10; 
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writeln  ('Cumulative  ET  is   ' ,CumET: 5: 2 , '  mm'); 
writeln  ('Depth  of  zone   ',1,  'is 

' ,Totzone[I] :4:1) ;bugs; 
end; 


end; 


end; 


begin 

Assign  (WaterFile,  'C:\PNUTGR0\0UT3.PN'); 

Assign  (RLDFile, 'C:\PNUTGR0\0UT2.PN') ; 

Assign  (SensorFile, 'A:\SENRED.PRN') ; 

Assign  (Wrfile, 'C:\PNUTGRO\WRMOD.DAT') ; 

Assign  (Wrfile2, 'C:\PNUTGRO\WRMOD.DAT') ; 

Assign  (Sparam,  'C:\PNUTGRO\UFGA8801.PN8'); 

Assign  (Sprol,  'C: \PNUTGR0\SPR0FILE.PN2 ■ ) ; 

Assign  (Spro2,  'C:\PNUTGR0\SPR0FILE.PN2'); 

Assign  (Irroff,  'A:\IRROFSET.DAT'); 

TextBackground(blue) ; 

TextColor(yellow) ; 

clrscr; 

Totzon  :=  14.0; 

Project  :=  8; 

TotRLD  :=  0.0; 

Composuct  : =  0.0; 

CompoSen  :=  0.0; 

CompSen  : =  0.0; 


Zerocomp; 
CumET  : =  0.0; 
Zreg  :=  0.0; 
Ztot  :=  0.0; 
Zacc  :=  0.0; 
Dflag  :=  0; 
TotWeightRLD 
TotRLDRegZone 
RootDepthSen 
IrrAmount  := 
TotSenl  :=  0; 
TotSen2  :=  0; 
Posit  :=  61; 
Posit2  :=  129 
Posen  : =  8  ; 
Width  :=  3; 
Wrf actor  : =  0 
Wrtot  :=  0; 
Irridepth 
DULTot  := 
Wl  :=  0.0; 
W2  :=  0.0; 
W3  :=  0.0; 
W4  :=  0.0; 
W1L  :=  0.0 


(*  Zero  out  buffer  for  composite  suction  *) 


=  0.0; 

:=  0.0; 
:=  0; 
0; 


075;  (*  Feedback  strength  for  Wr  modification  *) 


:=  0; 


324 


W2U  : 

=  0.0 

W2L  :=  0.0 

W3U  :=  0.0 

RLW1L  :=  0. 

0; 

RLW2U  :=  0. 

0; 

RLW2L  :=  0. 

0; 

RLW3U  :=  0. 

0; 

Z[l] 

=  5; 

Z[2] 

■  10; 

Z[3] 

=  15; 

Z[4] 

=  15; 

Z[5] 

=  15; 

Z[6] 

=  30; 

Z[7] 

=  30; 

Z[8] 

=  30; 

Z[9] 

=  30; 

(*  Input  these  from  initial  cond.  file  *) 


writeln  ('What  is  todays  date?  ');   (*  Pass  date  to  here  *) 
readln  (Dat) ; 

writeln  ('How  many  depths  have  you  placed  the  sensors?'); 
readln  (Dep) ;        (*  Pass  this  from  program  "sensors"  *) 

Placldeal;      (*  Determine  optimal  placement  of  sensors  *) 

For  I  :=  1  to  Dep  do 
begin 

(*  Input  these  from  LOTUS  generated  Prn  file*) 
writeln  ('What  is  sensor  depth  ' ,1,'?  (cm)'); 
readln  (D[I]) ; 
end; 
writeln  ('How  many  sensors  do  you  have  at  each  station?'); 
readln  (Number) ;      (*  Pass  this  from  program  "sensors"  *) 

writeln  ('Do  you  have  sensor  readings  today?  y/n'); 
readln  (SensRed) ; 

writeln  ( 'What  percentage  of  the  feeder  roots  do  you  want 

to  replenish  ? ' ) ; 
readln  (Percent) ; 

writeln('At  what  suction  value  do  you  want  to  irrigate?  (kPa)') 
readln  (level) ; 

ReadlnDUL;     (*  Read  in  average  DUL  of  top  5  zones  *) 
clrscr; 

writeln ( 'What  type  of  irrigation  system  do  you  use?  '); 
writeln ( ' ' ) ; 

writeln('l  =  Center  Pivot  or  Lateral  Move'); 
writeln('2  =  Solid  Set  Sprinkler'); 
readln  (IrriType) ; 
writeln ( 'Which  retention  curve  to  convert  PNUTGRO  soil 

water  to  suctions? ' ) ; 
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writeln( ' ' ) ; 

writeln('l  =  Published'); 

writeln('2  =  Experimental  with  extrapolation'); 

readln (Switch) ; 

clrscr; 

writeln('Did  it  rain  or  was  the  field  irrigated  yesterday? 

(Y/N)'); 
readln (Watered) ; 
If  Watered  in  ['Y','y']    then 
begin 
writeln ( '  ' )  ; 
writeln( 'Enter  amount  of  irrigation  (mm)  or  enter  0  if  it 

rained' ) ; 
readln  (IrrAmount) ; 
end; 

(*  Ask  above  in  E.S.  *) 


Zoneadjust;       (< 

Waterlnput; 
RLDInput ; 
Sensorlnput; 

AverageSensors ; 
ChooseHighAve ; 

WaterContents ; 

FindSenZone; 

RegZone ; 

CalRLDRegZone; 


If  Switch  =  1  then 
Suctions      <* 


Else  SuctionsAlt 
DayToIrrigate ; 
CompoSensor; 

SprofileModif ; 

RootDepth ; 

WRModif ; 
ChooseDepth; 

WaterDepth; 

ETCalc; 

end. 


Adjust  zones  of  regulation  at  each  *) 

sensor  *) 
Input  soil  water  data  from  0UT3 . Dat  *) 
Input  RLDs  from  0UT2.Dat  *) 
Input  sensor  readings  from  LOTUS  *) 
generated  PRN  file  *) 
Average  sensor  readings  *) 
Choose  sensors  with  highest  readings  *) 
at  same  depth  *) 

Determine  water  contents  corresponding  *) 
to  sensor  reads  using  retention  curve  *) 
Find  PNUTGRO  water  contents  and  RLDs  *) 
around  sensor   *) 

Find  zone  of  regulation  for  desired  *) 
%  regulation  *) 

Find  cumulative  RLD  in  reg.  zone  for  *) 
weighting  calcs  *) 

Find  Suctions  from  PNUTGRO  water  *) 
contents  *) 

Forecast  day  to  irrigate  *) 

Find  composite  suction  in  zone  for  *) 

sensors  *) 

Modify  PNUTGRO  soil  parameters  as  *) 

sensors  indicate  *) 

Determine  rooting  depths  by  sensors  *) 

and  model  *) 

Adjust  WR(I)  if  necessary  *) 

Choose  sensors  at  same  depth  with 

greatest  water  uptake  *) 

If  irrigation,  determine  sensor  responses  *) 

Calculate  sensor  based  ET   *) 
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